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DEFINE info_tag 
PARAMETER uniqID 
PARAMETER sub_f ilename 
PARAMETER rev__type 



all revisions are indicated in rev block of sheet one 

all other sheets have all revisions and say "see sheet one" for the PCO# 
-when dealing with the new IPG standard border you will need to add 10 to 
the x and to the y dimensions on all LL and UR coordinates of rev and 
title block fields, also the UR of the border will be + 20, +20 from LL. 
-also the upper right coordinate 



LOCAL Input_file 
LOCAL message__f ile 
LOCAL xys 
LOCAL bd_size 
LOCAL currentlnfos 
LOCAL infoLine 
LOCAL blockTimer 
LOCAL mynotes 
LOCAL mysheets 
LOCAL blanks 
LOCAL border_width 
LOCAL myLine 



LET mmd "OFF" 
LET pnts "OFF" 

LET orgFile { ' / tmp/ 1 +sub_f ilename+ 1 : s . inf 1 ) 
LET newFile (TMPMDX+ ' / 1 +sub_f ilename+ ' . inf * ) 
LET blockTimer ( 1 / tmp/blockTimer . $LOGNAME 1 ) 
LET currentlnfos ( ' /tmp/currentlnf os . 1 +uniqID) 
LET Input_file ( 1 / tmp/Me30_parts_list . ■ +uniqID) 
LET message_file ( ' /tmp /message . 1 +uniqID) 
LET mynotes { 1 /tmp /mynotes . 1 +uniqID) 
LET xys ( Vtmp/xys. f +uniqID) 
LET cords ( 1 /tmp/cords . 1 +uniqID) 

LET borderPartNos { ' / tmp/borderPartNos . 1 +uniqID) 
LET Triangles ( ? / tmp/trianglePartNos . 1 +uniqID) 
LET blanklnfos ( 1 /tmp/blanklnf os . ' +uniqID) 



RUN GRAPHIC ('date > ' + blockTimer + '; rm -f '+xys) 



OPEN INFILE 9 ( 1 \ grep "UNBLENDED FILLET RADII MAY BE BLENDED 0.25 mm MAXIMUM" 
/tmp/mdx/ 1 +sub_f ilename) 
READ_FILE 9 olevl 
CLOSE_FILE 9 

OPEN INFILE 9 ( f | grep "2Dseed" / tmp/mdx/ ' +sub_f ilename ) 
READ~FILE 9 olev2 
CLOSE_FILE 9 

IF ((olevl <> 1 END-OF-FILE 1 ) AND (olev2 <> 1 END-OF-FILE ' ) ) 

LET olev "olev" 
ELSE 

LET olev "END-OF-FILE" 
END IF 
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(before tagging infos, remove all mkm infos in the file} 

RUN GRAPHIC ( ' /usr/bin/grep mkm •+ TMPMDX+ " / "+sub_f ilename + > 
+cur rent Infos) 

OPEN_INFILE 2 currentlnfos 

READ_FILE 2 infoLine 

WHILE (infoLine <> ? END-OF-FILE ' ) 
CHANGE_GLOBAL_INFO infoLine 1 1 
READ__FILE 2 infoLine 

END_WHILE 

CLOSE__FILE 2 

LET mysheetnum 0 

{ PURGE_FILE message__file CONFIRM} 
UNITS MM 

CATCH NO_VIEWPORT_RANGE 1 
OPEN_OUTFILE 3 APPEND xys 
EDIT_PART TOP 

PARTS_LIST TREE DELJDLD Input_file 

{===GET BORDER PARTS SHEET SIZE AND UNIQ ID™=> 

{ RUN GRAPHIC (rndxbin* < /getDrawingPartNos '+Input_f ile+ ■ > ' +borderPartNos) } 
RUN GRAPHIC (MDXDIR+ * /bin/mygetParentChild . new +Input_f ile+ — > 
1 iborderPartNos ) 

{ ===FiND ANY REV_TRI ANGLE PARTS=«} 

RUN GRAPHIC (MDXDIR+ ' /bin/getParentChild ' +Input_f ile+ ' revjriangle > 
1 +Triangles ) 

{iterate through Border parts and map the RevBlocks and tag fields with infos} 
OPEN_INFILE 4 borderPartNos 

^ge?"tne E fLsrcharacter of myline, if its NOT ~ then continue else nextline} 
LET firstChar (SUBSTR myLine 1 1) 

WHILE (myLineO 1 END-OF-FILE ' ) { READ FROM PARTLIST FILE TILL 

EOF } 

IF <mmd="ON") DISPLAY ("LINE FROM PARTLIST:" + myline) END_IF 

5 (firstChar <> — ) MYLINE STARTS WITH A, B, C, 

D ' E} CATCH NO VIEWPORT RANGE 1 { ITS A BORDER... PROCESS IT} 

LET mysheetnum (mysheetnum +1) { OTHERWISE ITS THE UNIQ ID OF A 

CHILD} 

OPEN_OUTFILE 5 DEL__OLD message_file 

LET space (POS myLine • f ) 

LET bd_size (SUBSTR myLine 1 (space -1)) 

LET Border_ID (SUBSTR myLine (space +1) 80) 

EDIT_PART Border_ID 

INQ_ENV 7 

LET LL { INQ 101) 

LET UR (INQ 102) 

WINDOW LL UR 

IF (mmd="ON") DISPLAY ("border size is: " + STR bd__size) END_IF 

LET Oborder_width ( (X_OF UR) - (X_OF LL) ) 
IF (mmd="ON") 

DISPLAY ("border width is: *" + STR Oborder_width+ * ) 
DISPLAY ("Border width is: " + STR Oborder_width) 
END IF 
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LET border width (SUBSTR (STR Oborder_width) 13) 

IF (mmd="ON") DISPLAY ("Border width is: « + STR border_width) END_IF 

{===== IF A USTR"border width = "266") OR (STR border_width = "390") OR (STR 
border width - "523")"OR (STR border^width = "524") OR (STR border_width = 
"820")"OR (STR border_width = "821") OR (STR border_width =107 )) 

LET border__type "OLD" 
IF (mmd="ON") DISPLAY ("this is an OLD border") END_IF 

f ind_border_type 1 x 1 

f ind_border_type 1 y 1 

EDIT_PART Border_ID 

tagrb 

tagtb 
ELSE 

LET border_type "NEW" 
IF (mmd="ON") DISPLAY ("this is a NEW Structured border") END_IF 
EDIT_PART Border_ID 
newTagTB 
newTagNotes 
newTagRB 

IF (rev_type = "A") 

newDelRB 
END_IF 
END_IF 
{ ===END=MAIN===== } 
END__IF 

READ_FILE 4 myLine 

LET firstChar (SUBSTR myLine 1 1) 
END_WHILE 
CLOSE_FILE 4 

RUN GRAPHIC (MDXDIR+ 1 /bin/ rbmap 1 + xys + f > f + cords) 
{ tagblanks } 

IF ((revjype = "A") AND (border_type = "OLD")) 
delrb 

OPEN_INFILE 6 Triangles 
READ_FILE 6 parentChild 
WHILE (parentChild <> 1 END-OF-FILE 1 ) 
LET space (POS parentChild 1 f ) 

LET myParent (SUBSTR parentChild 1 (space -1)) 

LET myChild (SUBSTR parentChild (space +1) 80) 

EDIT_PART myParent 

DELETE myChild 

READ_FILE 6 parentChild 
END_WHILE 
CLOSE_FILE 6 
END 
END_IF 

IF (rev_type = "B") 

{I think the following needs of the A+ revs will be done in medex:} 

{find at least one revB triangle } 

{must have PCO number in RevDescription field } 

{only the rev description of the FIRST LINE of the rev block records is 
tagged } 

{on Xrevs the revDescription can default to X REVISION UPDATE} 
{on B+ revs I need to tag the last line of the revBlock??} 
END IF 
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proprietary_check uniqID 

CLOSE_FILE 3 
CLOSE_FILE 5 
END 

STORE MI ALL DEL_OLD orgFile CONFIRM 

{### This section of code will run inqmi on the newFile using all the possible 

inf ° S after finding out how many sheets are in the drawing. Any "info not found" 

fr ° m inqmi will get listed. This list will be used by the continuation of this 
macro 

to add text and tag with infos the pieces of text that are mxssing. 

} 

{= == T HIS CODE IS NOT USED=== 

OPEN_INFILE 1 ( f l '+MDXDIR+'/bin/getpartlist '+orgFile+' I grep + [A- 

E]_. *_DRAWING" | wc -1') 
READ_FILE 1 my sheets 

CLOSE FILE 1 ...... -rr^i 

RUN GRAPHIC (MDXDIR+ f /bin/ checkBlanklnf os »+mysheets+' '+orgFile+ +unrqID+ 

| sort > f +blankInfos) 

OPEN_INFILE 1 CI wc -1 1 +blanklnf os+ ' I cut -d" " -f 1 ' ) 
READ~FILE 1 blanks 
CLOSE_FILE 1 

IF (blanks <> 0) 

DISPLAY ("Number of Blank Infos is: " + blanks) 

addTextElements 
END IF 

} 

DACA 

RUN GRAPHIC ( ' chmod 655 f +orgFile+ ' ;mv »+orgFile+ , ' +newFile+ ' ; rm -f 
/tmp/* 1 +uniqID+ ' * 1 +TMPMDX+ 1 / 1 +sub_f ilename) 

RUN GRAPHIC (MDXDIR+ 1 /bin/ get Inf oValues , +newFile+ l sdf 1 > 1 +TMPMDX+ 1 /infos 1 ) 

RUN GRAPHIC ('date » 1 + blockTimer) 
END_DEFINE 
{ 

DwgNumberU 

Er 

Rev 

3dRev 

RevDesc 

ApprovedBy 

ApprovedDate 

DrawnBy 

DrawnDate 

EngChecker 

CheckDate 

RelToProd 

RelDate 

FileRevisedBy 

FileRevisedByDate 

Title 

Title 
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PartNumber 

Scale 

SheetNo 

SheetQty 

DwgNumberL 

Notes 

Item 

ItemQty 

Par tMatl Description 

MatlPartNo 

MatlDwgNo 

MatlSpec 

} 
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DEFINE proprietary_check 
PARAMETER uniqID 
LOCAL Input_file 
LOCAL delpart 
LOCAL myparent 
LOCAL mychild 
LOCAL res stamp 
LOCAL myLL 

LET resstamp (MDXDIR+ 1 / data/ res tricted__s tamp 1 ) 
LET Input_file ( 1 /tmp/Me30_parts_list . f +uniqID) 

PARTS_LIST TREE DEL_OLD Input_file 

OPEN_INFILE 1 ('I '+MDXDIR+' /bin/getParentChild ' +Input_f ile+ 1 
PROPRIETARY_STAMP 1 ) 
READ_FILE 1 delpart 
WHILE {delpart <> ' END-OF-FILE 1 ) 
LET delim (POS delpart 1 1 ) 

LET myparent (SUBSTR delpart 1 (delim -1)) 
LET mychild (SUBSTR delpart (delim +1) 500) 
EDIT_PART mychild 
INQ_ENV 7 

LET myLL ( INQ 101) 
EDIT_PART myparent 
DELETE mychild 
LOAD SUBPART resstamp myLL 
READ_FILE 1 delpart 
END_WHILE 
END DEFINE 
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DEFINE tagtb 

LOCAL rowNum 

LET rowNum 1 
IF (bd size = 'E ? ) 

LET drawnByLL ( (PNT_XY 867.488434177725 31.2 603631144714) +LL) 

LET drawnByUR ( (PNT_XY 914.4 693907 8567 40.9329130043424) +LL) 

LET mid_X ( { {X_OF drawnByLL) + <X_OF drawnByUR)) / 2) 

LET mid__Y ( ( (Y_OF drawnByLL) + (Y_OF drawnByUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText {STR mysheetnum + "_mkmDrawnBy" ) 

tag InfoText drawnByLL drawnByUR midpoint 

LET drawnBy dateLL ( (PNT_XY 914.4 693907 8567 31.5367216827535) + LL) 

LET drawnBy~dateUR ( ( PNT_XY 939.6180204 99335 4 0.932 9130043424) + LL) 

LET mid_X ( ( (X__OF drawnBy_dateLL) + (X_OF drawnBy_dateUR) ) / 2) 

LET mid_Y ( ( (Y_OF drawnBy_dateLL) + (Y_OF drawnBy_dateUR) ) / 2) 

LET midpoint {PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDrawnDate" ) 

tag InfoText drawnBy_dateLL drawnBy_dateUR midpoint 

LET engrCheckerLL ( (PNT_XY 867.212075609443 21.03509608 80364) + LL) 
LET engrCheckerUR ( <PNT_XY 914.745749353952 30.9840045461894) + LL) 
LET mid_X ( ( (X_OF engrCheckerLL) + (X_OF engrCheckerUR)) / 2) 
LET mid_Y { ( (Y_OF engrCheckerLL) + (Y_OF engrCheckerUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmEngChecker " ) 
tag InfoText engrCheckerLL engrCheckerUR midpoint 

LET engrChecker dateLL ((PNT_XY 915.022107 922234 21.3114546563184) + LL) 
LET engrChecker_dateUR ( (PNT_XY 939.894379067617 30.984 00454 618 94) + LL) 
LET mid_X ( ( (X_OF engrChecker_dateLL) + (X_OF engrChecker_dateUR) ) / 2) 
LET mid_Y ( ( (Y_OF engrChecker_dateLL) + (Y_OF engrChecker_dateUR) ) / 2) 
LET midpoint ( PNT_XY mid__X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmCheckDate" ) 

tag InfoText engrChecker_dateLL engrChecker_dateUR midpoint 

LET relToProdLL ((PNT_XY 867.764792746007 11.638 9047 664 475) + LL) 
LET relToProdUR { (PNT_XY 914.745749353952 21.03509608 80364) + LL) 
LET mid_X ( ( (X_OF relToProdLL) + (X_OF relToProdUR) ) / 2) 
LET mid_Y ( ( (Y_OF relToProdLL) + (Y_0F relToProdUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRelToProd" ) 
tag InfoText relToProdLL relToProdUR midpoint 

LET relToProd dateLL ((PNT_XY 914.46939078567 11.638 9047 664475) + LL) 

LET relToProd_dateUR ( (PNT_XY 94 0.17 0737 6358 99 20.48237 89514724) + LL) 

LET mid_X {{{X_OF relToProd_dateLL) + (X_OF relToProd_dateUR) ) / 2) 

LET mid_Y ( ( (Y_OF relToProd__dateLL) + (Y_OF relToProd_dateUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRelDate" ) 

tag InfoText relToProd_dateLL relToProd__dateUR midpoint 

LET fileRevisedByLL ( (PNT_XY 867.764792746007 0.0318448986023299) + LL) 
LET fileRevisedByUR ( (PNT_XY 914.4 693907 8567 11.36254 61981655) + LL) 
LET mid_X ( ( (X_OF fileRevisedByLL) + <X_OF fileRevisedByUR)) / 2) 
LET mid_Y ( ( (Y_OF fileRevisedByLL) + (Y_OF fileRevisedByUR)) / 2) 
LET midpoint (PNT__XY mid_X mid_Y) 
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LET InfoText (STR mysheetnum + "_mkmFileRevisedBy" ) 
tag InfoText f ileRevisedByLL f ileRevisedByUR midpoint 

LET fileRevisedBy_dateLL ( (PNT_XY 914.74574 9353952 0.0318448986023299) + LL) 
LET fileRevisedBy_dateUR ((PNT_XY 939.61802 04 99335 11.0861876298834) + LL) 
LET mid_X ( ( (X_OF f ileRevisedBy_dateLL) + (X_OF fileRevisedBy_dateUR) ) / 2) 
LET mid_Y ( ( (Y_OF f ileRevisedBy_dateLL) + (Y__OF f ileRevisedBy_dateUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + M _mkmFileRevisedByDate" ) 

tag InfoText f ileRevisedBy_dateLL f ileRevisedBy_dateUR midpoint 

LET dwgTitleLL { (PNT_XY 939.618 0204 99335 11.6389047664475) + LL) 
LET dwgTitleUR ((PNT_XY 1007.878586865 40.9329130043424) + LL) 
LET mid_X ( { (X_OF dwgTitleLL) + (X_OF dwgTitleUR)) / 2) 
LET mid_Y ( ( (Y_OF dwgTitleLL) + (Y_OF dwgTitleUR)) / 2) 
{ LET mid_Y ( (Y_OF dwgTitleLL) +4))} 
LET midpoint (PNT_XY mid_X mid_Y) 
LET InfoText (STR mysheetnum + "_mkmTitle") 
tag InfoText dwgTitleLL dwgTitleUR midpoint 

LET dwgPartNumberLL ( {PNT_XY 1008.43130400156 11.6389047 664475) + LL) 
LET dwgPartNumberUR ( (PNT_XY 1072.27013327471 21.3114 54 6563184) + LL) 
LET mid_X ( ( (X_OF dwgPartNumberLL) + (X_OF dwgPartNumberUR)) / 2) 
LET mid_Y ( { (Y_OF dwgPartNumberLL) + (Y_OF dwgPartNumberUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmPartNumber " ) 

tag InfoText dwgPartNumberLL dwgPartNumberUR midpoint 

LET dwgScaleLL ( (PNT_XY 93 9.8 94 379067 617 0.3082034 668 8 4 3 65) + LL) 

LET dwgScaleUR ( (PNT_XY 964.766650212999 11.0861876298834) + LL) 

LET rnidX ( ( (X_OF dwgScaleLL) + (X_OF dwgScaleUR) ) / 2) 

LET mid_Y { ( (Y_OF dwgScaleLL) + (Y_OF dwgScaleUR)) / 2) 

LET midpoint {PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmScale") 

tag InfoText dwgScaleLL dwgScaleUR midpoint 

LET sheetNumberLL ( (PNT_XY 965.043008781281 0.0318448986023299) + LL) 

LET sheetNumberUR ( (PNT_XY 984.111749992741 11.36254 61981655) + LL) 

LET mid_X ( ( (X_OF sheetNumberLL) + (X__OF sheetNumberUR)) / 2) 

LET mid_Y ( { (Y_OF sheetNumberLL) + (Y_OF sheetNumberUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmSheetNo" ) 

tag InfoText sheetNumberLL sheetNumberUR midpoint 

LET numberOfSheetsLL ( ( PNT_XY 984.111749992741 0.308203466884365) + LL) 

LET numberOfSheetsUR ( (PNT_XY 9 98.4 823955434 06 11.0861876298834) + LL) 

LET mid_X ( ( (X_OF numberOfSheetsLL) + (X_OF numberOfSheetsUR)) / 2) 

LET mid_Y ( ( (Y_OF numberOfSheetsLL) + (Y_OF numberOfSheetsUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmSheetQty" ) 

tag InfoText numberOfSheetsLL numberOfSheetsUR midpoint 

LET drawingNumberLL ((PNT_XY 998.758754111689 0.0318448986023299) + LL) 
LET drawingNumberUR ( (PNT_XY 1071.99377470643 11.6389047664475) + LL) 
LET mid_X ( ( (X_OF drawingNumberLL) + (XJDF drawingNumberUR)) / 2) 
LET mid_Y ( ( (Y_OF drawingNumberLL) + (Y_OF drawingNumberUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText { STR mysheetnum + "_mkmDwgNumberL" ) 

tag InfoText drawingNumberLL drawingNumberUR midpoint 

LET itemNumberLL ( ( PNT_XY 8 67.556912407 033 4 6.38 0600710964 6) + LL) 
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LET itemNumberUR ( { PNT_XY 880.518862954774 54.2 06684 06054 44) + LL) 
LET mid_X ( ( (X_OF itemNumberLL) + (X_OF itemNumberUR)) / 2) 
LET mid_Y ( ( (Y_OF itemNumberLL) + (Y_OF itemNumberUR) ) / 2) 
LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "__mkm_B" + STR rowNum+" Item" ) 
tag InfoText itemNumberLL itemNumberUR midpoint 

LET itemQuantityLL { (PNT_XY 880.518862954774 46.625165815639) + LL) 
LET itemQuantityUR ( (PNT_XY 892.747118188493 53.962118 95587) + LL) 
LET mid_X < ( (X_OF itemQuantityLL) + <X_OF itemQuantityUR)) / 2) 
LET mid_Y ( ( (Y_OF itemQuantityLL) + (Y_OF itemQuantityUR)) / 2) 
LET midpoint { PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkm_B"+STR rowNum+ "ItemQty") 
tag InfoText itemQuantityLL itemQuantityUR midpoint 

LET partMatDescript ionLL ( (PNT_XY 892.257987979144 4 6.625165815639) + LL) 
LET partMatDescriptionUR ((PNT_XY 972.964472521685 54.2066840605444) + LL) 
LET mid X { ( (X_OF partMatDescriptionLL) + (X_0F partMatDescriptionUR)) / 2) 
LET midj (( (Y~OF partMatDescriptionLL) + (Y_OF partMatDescriptionUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkm_B"+STR rowNum+"PartMatlDescription" ) 
tag InfoText partMatDescriptionLL partMatDescriptionUR midpoint 

LET materialPartNumberLL ( ( PNT_XY 972.964472521685 4 6.625165815639) + LL) 
LET materialPartNumberUR ( (PNT_XY 1008.1818475947 9 53.96211895587) + LL) 
LET mid_X (( (X_OF materialPartNumberLL) + (X_0F materialPartNumberUR) ) / 2) 
{ LET mid_Y ( ( (Y_OF materialPartNumberLL) + (Y_OF materialPartNumberUR)) / 2) } 
LET mid_Y ( (Y_OF materialPartNumberLL) +2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkm_B" +STR rowNum+ "MatlPartNo" ) 
tag InfoText materialPartNumberLL materialPartNumberUR midpoint 

LET materialDrawingNumberLL ( (PNTJCY 1008.42 641269947 4 6.3806007109646) + LL) 
LET materialDrawingNumberUR ((PNT_XY 1040.4 6444141181 53.96211895587) + LL) 
LET mid_X ( ( (X_OF materialDrawingNumberLL) + (X_OF materialDrawingNumberUR) ) / 

2 ) 

{ LET mid_Y { ( (Y_OF materialDrawingNumberLL) + (Y_OF materialDrawingNumberUR) ) 
/ 2) } 

LET mid_Y ( (Y_0F materialDrawingNumberLL) + 2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkm_B"+ STR rowNum+ "MatlDwgNo") 

tag InfoText materialDrawingNumberLL materialDrawingNumberUR midpoint 

LET materialSpecLL { (PNT_XY 104 0.21987 630714 4 6.625165815639) + LL) 
LET materialSpecUR ( (PNT_XY 1072.0133399148 54.4512491652187) + LL) 
LET mid_X ( ( (X_OF materialSpecLL) + (X_OF materialSpecUR)) / 2) 
{ LET mid_Y ( ( (Y_OF materialSpecLL) + (Y_0F materialSpecUR)) / 2) } 
LET mid_Y ( (Y_OF materialSpecLL) + 2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkm_B"+ STR rowNum+ "MatlSpec") 
tag InfoText materialSpecLL materialSpecUR midpoint 

ELSE_IF (bd_size = 1 D 1 ) 

LET drawnByLL ( (PNT_XY 616.906540125519 31.4277429577606) + LL) 

LET drawnByUR ( (PNT_XY 663.1664 01997 67 41.0152790970665) + LL) 

LET mid_X ( ( (X__OF drawnByLL) + (X_OF drawnByUR)) / 2) 

LET mid_Y ( ( (Y_0F drawnByLL) + (Y_OF drawnByUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDrawnBy" ) 

tag InfoText drawnByLL drawnByUR midpoint 
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LET drawnBy dateLL ( ( PNT_XY 662.92671359418 8 31.667 4313612433) + LL) 

LET drawnBy^dateUR ( <PNT_XY 68 8.5733727 66831 4 0.5359022 901012) + LL) 

LET mid X { { (X__OF drawnBy_dateLL) + (X_OF drawnBy__dateUR) ) / 2) 

LET mid_Y (((Y_OF drawnBy_dateLL) + (Y_OF drawnBy_dateUR) ) / 2) 

LET midpoint <PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDrawnDate" ) 

tag InfoText drawnBy_dateLL drawnBy_dateUR midpoint 

LET engrCheckerLL { (PNT__XY 616.666851722037 21.1211416080068) + LL) 
LET engrCheckerUR ( (PNT_XY 662.92 6713594188 31.188 054554278) + LL) 
LET mid_X ( ( (X_0F engrCheckerLL) + (X_OF engrCheckerUR)) / 2) 
LET mid_Y ( ( (Y_OF engrCheckerLL) + (Y_OF engrCheckerUR)) / 2) 
LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmEngChecker " ) 
tag InfoText engrCheckerLL engrCheckerUR midpoint 

LET engrChecker_dateLL ( <PNT_XY 663.1664 01997 67 21.3608300114 8 94) + LL) 

LET engrChecker_dateUR ( (PNTJCY 68 8.333684363348 31.18 805455427 8) + LL) 

LET mid_X { ( (X_OF engrChecker_dateLL) + (X_OF engrChecker_dateUR) ) / 2) 

LET mid_Y ( ( (Y_OF engrChecker__dateLL) + <Y_OF engrChecker_dateUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmCheckDate" ) 

tag InfoText engrChecker_dateLL engrChecker_dateUR midpoint 

LET relToProdLL ( (PNT_XY 616.90654 0125519 11.2 93917 0652182) + LL) 

LET relToProdUR ( (PNT_XY 663.16640199767 20.6417 648010415) + LL) 

LET mid_X ( ( (X_OF relToProdLL) + (X_OF relToProdUR) ) / 2) 

LET mid_Y ( ( (Y_OF relToProdLL) + (Y_OF relToProdUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRelToProd" ) 

tag InfoText relToProdLL relToProdUR midpoint 

LET relToProd_dateLL ( (PNT_XY 662.92 6713594188 11.2939170652182) + LL) 

LET relToProd_dateUR ( (PNT_XY 688.333684363348 20.6417 64 8010415) + LL) 

LET mid_X ( ( (X_OF relToProd_dateLL) + (X_OF relToProd_dateUR) ) / 2) 

LET mid_Y ( ( (Y_OF relToProd_dateLL) + (Y_0F relToProd_dateUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRelDate" ) 

tag InfoText relToProd_dateLL relToProd_dateUR midpoint 

LET fileRevisedByLL {(PNT_XY 616.427163318554 0.2 68250505016397) + LL) 
LET fileRevisedByUR ( (PNT_XY 663.406090401153 11.2939170652182) + LL) 
LET mid_X ( ( (X_OF fileRevisedByLL) + (X_OF fileRevisedByUR)) / 2) 
LET mid_Y ( ( (Y_OF fileRevisedByLL) + (Y_OF fileRevisedByUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + M _mkmFileRevisedBy" ) 
tag InfoText fileRevisedByLL fileRevisedByUR midpoint 

LET fileRevisedBy_dateLL ( (PNT_XY 662.926713594188 0.2 68250505016397) + LL) 
LET fileRevisedBy_dateUR ({ PNTJCY 688.33368436334 8 11.2 939170652182) + LL) 
LET mid_X ( ( (X_OF f ileRevisedBy_dateLL) + (X_OF f ileRevisedBy_dateUR) ) / 2) 
LET mid__Y ( ( (Y_OF f ileRevisedBy_dateLL) + (Y_OF f ileRevisedBy_dateUR) ) / 2) 
LET midpoint (PNTJCY mid_X mid_Y) 

LET InfoText (STR mysheetnum + M _mkmFileRevisedByDate" ) 

tag InfoText f ileRevisedBy_dateLL f ileRevisedBy_dateUR midpoint 

LET dwgTitleLL ( (PNT_XY 688.333 68436334 8 11.2 93917 0652182) + LL) 
LET dwgTitleUR ((PNT_XY 756.88456775938 6 41.25496750054 92) + LL) 
LET mid_X ( ( (X_OF dwgTitleLL) + (X_OF dwgTitleUR)) / 2) 
LET mid_Y ( ( (Y_OF dwgTitleLL) + (Y_OF dwgTitleUR)) / 2) 
{ LET mid Y ( (Y_OF dwgTitleLL) +4))} 
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LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmTitle" ) 

tag InfoText dwgTitleLL dwgTitleUR midpoint 

LET dwgPartNumberLL ( (PNT_XY 756.884567759386 11.7732 938721835) + LL) 
LET dwgPartNumberUR ( ( PNT_XY 82 0.8813714 892 53 21.1211416080068) + LL) 
LET mid_X ( ( (X_OF dwgPartNumberLL) + (X_OF dwgPartNumberUR)) / 2) 
LET mid_Y ( { (Y_OF dwgPartNumberLL) + (Y_OF dwgPartNumberUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmPartNumber " ) 

tag InfoText dwgPartNumberLL dwgPartNumberUR midpoint 

LET dwgScaleLL ( ( PNT_XY 688.573372766831 0.0285621015337512) + LL) 

LET dwgScaleUR ( (PNT_XY 713.740655132509 11.2939170652182) + LL) 

LET mid_X ( ( (X_OF dwgScaleLL) + (X_OF dwgScaleUR) ) / 2) 

LET mid_Y ( ( (Y_OF dwgScaleLL) + (Y_OF dwgScaleUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmScale" ) 

tag InfoText dwgScaleLL dwgScaleUR midpoint 

LET sheetNumberLL ( (PNT_XY 713.74 0655132509 0.0285621015337512) + LL) 

LET sheetNumberUR ( (PNT_XY 728.60133614 8433 11.2939170652182) + LL) 

LET mid_X ( ( (X_OF sheetNumberLL) + (X_OF sheetNumberUR)) / 2) 

LET mid_Y ( ( (Y_OF sheetNumberLL) + (Y_OF sheetNumberUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + n _mkmSheetNo" ) 

tag InfoText sheetNumberLL sheetNumberUR midpoint 

LET numberOfSheetsLL ( (PNT_XY 729.080712 955399 -0.21112 630194 8 8 94) + LL) 

LET numberOfSheetsUR ( <PNT__XY 747.29703162008 11.054228 6617356) + LL) 

LET mid_X ( ( (X_OF numberOfSheetsLL) + (XJDF numberOfSheetsUR)) / 2) 

LET mid~Y { ( (Y_OF numberOfSheetsLL) + (YJ3F numberOfSheetsUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmSheetQty" ) 

tag InfoText numberOfSheetsLL numberOfSheetsUR midpoint 

LET drawingNumberLL ( (PNT_XY 747.2 9703162 008 -0.211126301948894) + LL) 
LET drawingNumberUR ( (PNT_XY 820.881371489253 11.2 93917 0652182) + LL) 
LET mid_X ( ( (X_OF drawingNumberLL) + <X_OF drawingNumberUR)) / 2) 
LET mid_Y ( ( (Y_OF drawingNumberLL) + (Y_OF drawingNumberUR)) / 2) 
LET midpoint <PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDwgNumberL" ) 

tag InfoText drawingNumberLL drawingNumberUR midpoint 

LET itemNumberLL ( ( PNT_XY 616.3222 99642031 4 6.7809087402155) + LL) 

LET itemNumberUR ( { PNT_XY 62 9.417151247 923 54.0558262990443) + LL) 

LET mid_X ( ( (X_OF itemNumberLL) + (X_OF itemNumberUR)) / 2) 

LET mid_Y ( ( (Y_OF itemNumberLL) + (Y_OF itemNumberUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmltem" ) 

tag InfoText itemNumberLL itemNumberUR midpoint 



LET itemQuantityLL ( (PNT_XY 629.174653995962 47.02340599217 65) + LL 

LET itemQuantityUR ((PNT_XY 641.29951659401 54.0558262 990443) + LL) 

LET mid_X ( ( (X_OF itemQuantityLL) + (X_OF itemQuantityUR)) / 2) 

LET mid_Y ( ( (Y_OF itemQuantityLL) + (Y_OF itemQuantityUR)) / 2) 

LET midpoint (PNT_XY mid__X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmItemQty" ) 

tag InfoText itemQuantityLL itemQuantityUR midpoint 



LET partMatDescriptionLL ((PNT_XY 641.542013845971 4 6.7 809087402155) + LL) 
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LET partMatDescriptionUR ( (PNT_XY 721.566106993087 54.05582 629904 43) + LL) 
LET mid X ( ( (X__OF partMatDescriptionLL) + (X_OF partMatDescriptionUR) ) / 2) 
LET mid~~Y (( (Y_OF partMatDescriptionLL) + (Y_0F partMatDescriptionUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + M __mkmPartMatlDescription" ) 

tag InfoText partMatDescriptionLL partMatDescriptionUR midpoint 

LET materialPartNumberLL ( (PNT^XY 721.808604245048 4 6.538411488254 6) + LL) 
LET materialPartNumberUR ( (PNT_XY 756.970705779388 53.57 08317 95122 4) + LL) 
LET mid X ( { (X_OF materialPartNumberLL) + (X_OF materialPartNumberUR)) / 2) 
{ LET mid Y ( { (Y__OF materialPartNumberLL) + (Y_OF materialPartNumberUR)) / 2) } 
LET mid_Y ( (Y_OF materialPartNumberLL) +2)) 
LET midpoint (PNT__XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + M _mkmMatlPartNo" ) 

tag InfoText materialPartNumberLL materialPartNumberUR midpoint 

LET materialDrawingNumberLL ( (PNT_XY 756.97 070577 9388 46.7809087402155) + LL) 
LET materialDrawingNumberUR ( (PNT_XY 78 9.222840290195 53.3283345431614) + LL) 
LET mid_X ( ( (X_0F materialDrawingNumberLL) + (X_OF materialDrawingNumberUR) ) / 

2 ) 

{ LET mid_Y ( ( (Y_OF materialDrawingNumberLL) + (Y_OF materialDrawingNumberUR) ) 
/ 2) } 

LET mid_Y ( (Y_OF materialDrawingNumberLL) + 2) ) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + M _mkmMatlDwgNo" ) 

tag InfoText materialDrawingNumberLL materialDrawingNumberUR midpoint 

LET materialSpecLL { (PNT_XY 78 9.22284 0290195 4 6.5384114 88254 6) + LL) 
LET mater ialSpecUR ( (PNT_XY 820.5049857 93159 53.81332 9047 0834) + LL) 
LET mid_X (( (X_OF materialSpecLL) + (X_OF materialSpecUR) ) / 2) 
{ LET mid_Y ( ( (Y_OF materialSpecLL) + <Y_OF materialSpecUR)) / 2) } 
LET mid_Y ( (Y_OF materialSpecLL) + 2)) 
LET midpoint (PNT_XY mid_X mid_Y) 
LET InfoText (STR mysheetnum + ,, _mkmMatlSpec" ) 
tag InfoText materialSpecLL materialSpecUR midpoint 

ELSE IF (bd_size = 'C') 

LET drawnByLL ((PNT_XY 320.088651946856 31.255815887 6063) + LL) 

LET drawnByUR ( (PNT_XY 366.711156416308 4 0.669975443937 9) +LL) 

LET mid_X ( ( (X_OF drawnByLL) + (X_OF drawnByUR)) / 2) 

LET mid_Y ( ( (Y_OF drawnByLL) + (Y_OF drawnByUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDrawnBy" ) 

tag InfoText drawnByLL drawnByUR midpoint 

LET drawnBy_dateLL ( (PNT_XY 366.711156416308 31.2558158 87 6063) + LL) 
LET drawnBy_dateUR ( (PNT_XY 391.591435243756 40.8941221000411) + LL) 
LET mid_X ( ( (X_OF drawnBy_dateLL) + (X_OF drawnBy_dateUR) ) / 2) 
LET mid_Y ( ( (Y_OF drawnBy_dateLL) + (Y_0F drawnBy_dateUR) ) / 2) 
LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDrawnDate" ) 

tag InfoText drawnBy_dateLL drawnBy_dateUR midpoint 

LET engrCheckerLL ( (PNT_XY 319.8 645052907 53 20.9450697068 62) + LL) 
LET engrCheckerUR { (PNT_XY 366.4870097 602 05 31.255815887 6063) + LL) 
LET mid_X ( ( (X_OF engrCheckerLL) + <X_OF engrCheckerUR)) / 2) 
LET mid__Y ( ( (Y_OF engrCheckerLL) + (Y_OF engrCheckerUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + M _mkmEngChecker " ) 
tag InfoText engrCheckerLL engrCheckerUR midpoint 
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LET engrChecker dateLL ( (PNT_XY 366.4 87 0097 60205 21.1692163629652) 
LET engrChecker_dateUR ( (PNT_XY 391.5914352 43756 31.2558158876063) 
LET mid_X ( ( (X_OF engrChecker_dateLL) + <X_OF engrChecker_dateUR) ) 
LET mid_Y { { (Y_OF engrChecker_dateLL) + (Y_OF engrChecker_dateUR) ) 
LET midpoint (PNT_XY mid_X mid_Y) 
LET InfoText (STR mysheetnum + "_mkmCheckDate") 
tag InfoText engrChecker_dateLL engrChecker_dateUR midpoint 

LET relToProdLL ( (PNT_XY 319.864505290753 11.5309101505303) + LL) 
LET relToProdUR ( (PNT_XY 366.711156416308 20.9450697068 62) + LL) 
LET mid_X ( ( (X_OF relToProdLL) + (X_OF relToProdUR) ) / 2) 
LET mid_Y ( ( <Y_OF relToProdLL) + (Y_OF relToProdUR)) / 2) 
LET midpoint (PNT_XY mid__X mid_Y) 
LET InfoText (STR mysheetnum + "__mkmRelToProd" ) 
tag InfoText relToProdLL relToProdUR midpoint 

LET relToProd_dateLL { (PNT_XY 366.487 0097 60205 11.7550568 066335) + LL) 

LET relToProd_dateUR ( (PNT_XY 3 91.591435243756 20.7209230507589) + LL) 

LET mid_X ( ( (X_OF relToProd_dateLL) + (X_OF relToProd_dateUR) ) / 2) 

LET mid_Y ( ( (Y_OF relToProd_dateLL) + (Y_OF relToProd_dateUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText {STR mysheetnum + "_mkmRelDate" ) 

tag InfoText relToProd_dateLL relToProd_dateUR midpoint 

LET fileRevisedByLL ( ( PNT_XY 319.640358634 64 9 0.0994306892704202) + LL) 
LET fileRevisedByUR ((PNT_XY 366.711156416308 11.7550568066335) + LL) 
LET mid_X ( { (X_OF fileRevisedByLL) + (X_0F fileRevisedByUR)) / 2) 
LET mid_Y { ( <Y_OF fileRevisedByLL) + (Y_OF fileRevisedByUR)) / 2) 
LET midpoint { PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmFileRevisedBy" ) 
tag InfoText fileRevisedByLL fileRevisedByUR midpoint 

LET fileRevisedBy_dateLL ( (PNT_XY 366.262863104102 0.547724001476695) + LL) 
LET fileRevisedBy_dateUR ( (PNT_XY 391.815581899859 11.5309101505303) + LL) 
LET mid_X { ( (X_OF f ileRevisedBy_dateLL) + (X_OF f ileRevisedBy_dateUR) ) / 2) 
LET mid_Y ( ( (Y_OF f ileRevisedBy_dateLL) + (Y_OF f ileRevisedBy_dateUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + n _mkmFileRevisedByDate" ) 

tag InfoText f ileRevisedBy_dateLL f ileRevisedBy_dateUR midpoint 

LET dwgTitleLL ( (PNT_XY 391.815581899859 11.5309101505303) + LL) 
LET dwgTitleUR ((PNT_XY 459.956165355212 41.1182687561442) + LL) 
LET mid_X ( ( (X_OF dwgTitleLL) + (X_OF dwgTitleUR)) / 2) 
LET mid_Y ( ( (Y_OF dwgTitleLL) + (Y_OF dwgTitleUR)) / 2) 
{ LET mid_Y ( (Y_OF dwgTitleLL) +4))} 
LET midpoint (PNT_XY mid_X mid_Y) 
LET InfoText (STR mysheetnum + "_mkmTitle") 
tag InfoText dwgTitleLL dwgTitleUR midpoint 

LET dwgPartNumberLL ( (PNT_XY 4 60.180312011315 11.7550568066335) + LL) 
LET dwgPartNumberUR ( (PNT_XY 523.837962344606 21.1692163629652) + LL) 
LET mid_X ( ( (X_0F dwgPartNumberLL) + {X_0F dwgPartNumberUR)) / 2) 
LET mid__Y ( ( (Y_OF dwgPartNumberLL) + (Y_OF dwgPartNumberUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmPartNumber " ) 

tag InfoText dwgPartNumberLL dwgPartNumberUR midpoint 

LET dwgScaleLL ( (PNTJCY 392.039728555962 0.32357734537355) + LL) 
LET dwgScaleUR ({PNT_XY 416.92000738341 10.8584701822209) + LL) 
LET mid_X ( ( (X__OF dwgScaleLL) + (X_OF dwgScaleUR) ) / 2) 
LET mid_Y ( ( (Y_OF dwgScaleLL) + (Y_0F dwgScaleUR)) / 2) 



+ LL) 
+ LL) 
/ 2) 
/ 2) 
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LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmScale" ) 

tag InfoText dwgScaleLL dwgScaleUR midpoint 

LET sheetNumberLL ( (PNT_XY 416.92000738341 0.09943068927 04202) + LL) 

LET sheetNumberUR { (PNT_XY 432.161979998423 11.5309101505303) + LL) 

LET mid_X ( ( (X_OF sheetNumberLL) + (X__OF sheetNumberUR)) / 2) 

LET mid_Y ( { (Y__OF sheetNumberLL) + (Y_OF sheetNumberUR)) / 2) 

LET midpoint { PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmSheetNo" ) 

tag InfoText sheetNumberLL sheetNumberUR midpoint 

LET numberOfSheetsLL { (PNT_XY 431.93783334232 -0.348 8 62 622 935854) + LL) 

LET numberOfSheetsUR ( (PNT_XY 4 50.542 0057 98 881 11.3067 634 944272) + LL) 

LET mid_X ( ( (X_OF numberOfSheetsLL) + (X_OF numberOfSheetsUR)) / 2) 

LET mid_Y ( ( (Y_OF numberOfSheetsLL) + (Y_OF numberOfSheetsUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmSheetQty n ) 

tag InfoText numberOfSheetsLL numberOfSheetsUR midpoint 

LET drawingNumberLL ( (PNT_XY 450.766152454984 -0.12471596683271) + LL) 
LET drawingNumberUR ( (PNT_XY 524.062109000709 11.5309101505303) + LL) 
LET mid_X ( ( (X_OF drawingNumberLL) + (X__OF drawingNumberUR)) / 2) 
LET mid_Y ( { (Y__OF drawingNumberLL) + (Y_OF drawingNumberUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDwgNumberL" ) 

tag InfoText drawingNumberLL drawingNumberUR midpoint 

LET itemNumberLL ( (PNT_XY 319.816687337 451 46.4039457692643) + LL) 

LET itemNumberUR ( ( PNT_XY 332.203330415918 54.1163839124 61) + LL) 

LET mid_X ( ( (X_OF itemNumberLL) + (X_OF itemNumberUR)) / 2) 

LET mid_Y ( ( (Y_OF itemNumberLL) + (Y_OF itemNumberUR)) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmltem") 

tag InfoText itemNumberLL itemNumberUR midpoint 

LET itemQuantityLL ( (PNT_XY 332.203330415918 4 6.637 656016027 8) + LL) 

LET itemQuantityUR ( ( PNT_XY 344.5899734 9438 6 53.8826736656974) + LL) 

LET mid_X ( ( (X_OF itemQuantityLL) + (X_OF itemQuantityUR)) / 2) 

LET mid_Y { { (Y_OF itemQuantityLL) + (Y_OF itemQuantityUR)) / 2) 

LET midpoint (PNT_XY mid_X mid__Y) 

LET InfoText (STR mysheetnum + "_mkml temQty" ) 

tag InfoText itemQuantityLL itemQuantityUR midpoint 

LET partMatDescriptionLL { (PNT_XY 34 4.58997 349438 6 4 6.4039457692643) + LL) 
LET partMatDescriptionUR ({PNT_XY 425.220008627805 54.116383912461) + LL) 
LET mid_X ( ( (X_OF partMatDescriptionLL) + (X_OF partMatDescriptionUR)) / 2) 
LET mid_Y ( ( (Y_OF partMatDescriptionLL) + (Y_OF partMatDescriptionUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + M _mkmPartMatlDescription" ) 

tag InfoText partMatDescriptionLL partMatDescriptionUR midpoint 

LET materialPartNumberLL ( (PNT_XY 424.2 85167 640751 4 6.4 039457 692 64 3) + LL) 
LET materialPartNumberUR ( (PNT_XY 4 60.042835395572 54.3500941592245) + LL) 
LET mid_X (( (X_OF materialPartNumberLL) + (X_OF materialPartNumberUR) ) / 2) 
{ LET midj (( (Y_OF materialPartNumberLL) + (Y_OF materialPartNumberUR) ) / 2) } 
LET mid_Y ( (Y_OF materialPartNumberLL) +2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmMatlPartNo" ) 

tag InfoText materialPartNumberLL materialPartNumberUR midpoint 
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LET materialDrawingNumberLL ( (PNT_XY 4 60.27 6545642336 46.4039457692643) + LL) 
LET materialDrawingNumberUR ( (PNT_XY 4 92.7 622699424 67 53.8826736656974) + LL) 
LET mid X ( ( (X_OF materialDrawingNumberLL) + (X_OF materialDrawingNumberUR) ) / 

2 ) 

{ LET mid__Y ( ( (YJDF materialDrawingNumberLL) + (Y_OF materialDrawingNumberUR)) 
/ 2) } 

LET mid_Y { (Y_OF materialDrawingNumberLL) + 2)) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmMatlDwgNo" ) 

tag InfoText materialDrawingNumberLL materialDrawingNumberUR midpoint 

LET materialSpecLL ( (PNT_XY 4 92.52 85596957 04 4 6.4 039457 692 643) + LL) 
LET materialSpecUR ( (PNT_XY 524.07 94 43008781 54.116383912461) + LL) 
LET mid_X (( (X_OF materialSpecLL) + (X_OF materialSpecUR) ) / 2) 
{ LET mid_Y ( ( (Y_0F materialSpecLL) + (Y_OF materialSpecUR)) / 2) } 
LET mid_Y ( (Y_OF materialSpecLL) + 2)) 
LET midpoint (PNT_XY mid_X mid_Y) 
LET InfoText (STR mysheetnum + "_mkmMatlSpec" ) 
tag InfoText materialSpecLL materialSpecUR midpoint 

ELSE_I F <bd_size - ? B 1 ) 

LET drawnByLL ((PNT_XY 185.687510629208 30.907 687 6651417) + LL) 

LET drawnByUR ( (PNT__XY 232.679258216119 41.2011180889411) + LL) 

LET mid_X ( ( (X_OF drawnByLL) + (X_OF drawnByUR)) / 2) 

LET mid_Y ( ( (Y_OF drawnByLL) + (Y_0F drawnByUR)) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDrawnBy " ) 

tag InfoText drawnByLL drawnByUR midpoint 

LET drawnBy_dateLL ( (PNT_XY 232.455487989514 31.35522 8118 3503) + LL) 

LET drawnBy_dateUR ( (PNT_XY 257.5177533692 40.9773478 623368) + LL) 

LET mid_X ( ( (X_OF drawnBy_dateLL) + (X_OF drawnBy_dateUR) ) / 2) 

LET mid_Y ( ( (Y_OF drawnBy_dateLL) + (Y_OF drawnBy_dateUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + n _mkmDrawnDate" ) 

tag InfoText drawnBy_dateLL drawnBy_dateUR midpoint 

LET engrCheckerLL ((PNT_XY 185.91128 0855812 20.838 027 4 67 94 65) + LL) 
LET engrCheckerUR ( (PNT_XY 232.23171776291 31.3552281183503) + LL) 
LET mid_X ( ( (X_OF engrCheckerLL) + (X_OF engrCheckerUR)) / 2) 
LET mid_Y ( ( (Y__OF engrCheckerLL) + (Y_0F engrCheckerUR)) / 2) 
LET midpoint (PNT_XY mid_X mid__Y) 

LET InfoText (STR mysheetnum + "_mkmEngChecker " ) 
tag InfoText engrCheckerLL engrCheckerUR midpoint 

LET engrChecker_dateLL ( <PNT_XY 232.455487 989514 20.8380274679465) + LL) 

LET engrChecker_dateUR ( (PNT_XY 257.7 41523595804 31.3552281183503) + LL) 

LET mid_X ( ( (X_OF engrChecker_dateLL) + (X_OF engrChecker_dateUR) ) / 2) 

LET mid_Y ( ( (Y_OF engrChecker_dateLL) + (Y_OF engrChecker_dateUR) ) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + M _mkmCheckDate" ) 

tag InfoText engrChecker_dateLL engrChecker_dateUR midpoint 

LET relToProdLL ( (PNT_XY 18 6.135051082417 11.2159077239601) + LL) 
LET relToProdUR ( ( PNT_XY 232.2317177 62 91 21.061797 6945509) + LL) 
LET mid_X ( ( (X_OF relToProdLL) + (X_OF relToProdUR) ) / 2) 
LET mid_Y ( ( (YJDF relToProdLL) + (Y_OF relToProdUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRelToProd" ) 
tag InfoText relToProdLL relToProdUR midpoint 
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LET relToProd_dateLL ( (PNT_XY 232.455487989514 11.2159077239601) + LL) 

LET relToProd_dateUR ( (PNT_XY 257.741523595804 21.0617976945509) + LL) 

LET mid_X ( ( (X_OF relToProd_dateLL) + <X_OF relToProd_dateUR) ) / 2) 

LET mid_Y { ( (Y_OF relToProd_dateLL) + (Y_OF relToProd_dateUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRelDate" ) 

tag InfoText relToProd_dateLL relToProd_dateUR midpoint 

LET fileRevisedByLL ( (PNT_XY 185.687510629208 0.0273963937433024) + LL) 
LET fileRevisedByUR ( ( PNT_XY 232.23171776291 11.6634481771688) + LL) 
LET mid_X ( ( (X_OF fileRevisedByLL) + (X_OF fileRevisedByUR)) / 2) 
LET mid_Y ( ( (Y_OF fileRevisedByLL) + (Y_OF fileRevisedByUR)) / 2) 
LET midpoint (PNT__XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + n _mkmFileRevisedBy" ) 
tag InfoText fileRevisedByLL fileRevisedByUR midpoint 

LET fileRevisedBy_dateLL ( (PNT_XY 232.455487989514 0.0273963937433024) + LL) 
LET fileRevisedBy_dateUR ( (PNT_XY 257.9652938224 09 11.439677 950564 4) + LL) 
LET mid__X ( ( (X_OF f ileRevisedBy_dateLL) + (X_OF f ileRevisedBy_dateUR) ) / 2) 
LET mid_Y ( ( {YJDF f ileRevisedBy_dateLL) + (Y_0F f ileRevisedBy_dateUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid__Y) 

LET InfoText (STR mysheetnum + n _mkmFileRevisedByDate" ) 

tag InfoText f ileRevisedBy_dateLL f ileRevisedBy_dateUR midpoint 

LET dwgTitleLL ( (PNT_XY 257.7 415235958 04 11.439677 9505644) + LL) 
LET dwgTitleUR ( (PNT_XY 325.7 67 6724 83522 4 0.753577 6357325) + LL) 
LET mid_X ( ( (X_OF dwgTitleLL) + (XJDF dwgTitleUR)) / 2) 
LET mid_Y ( ( (Y_OF dwgTitleLL) + (Y_OF dwgTitleUR)) / 2) 
{ LET mid_Y ( (Y_OF dwgTitleLL) +4))} 
LET midpoint (PNT_XY mid_X mid_Y) 
LET InfoText (STR mysheetnum + "_mkmTitle" ) 
tag InfoText dwgTitleLL dwgTitleUR midpoint 

LET dwgPartNumberLL ( (PNT_XY 326.215212936731 11.4396779505644) + LL) 
LET dwgPartNumberUR ( (PNT_XY 389.989727518967 21.5093381477595) + LL) 
LET mid_X ( ( (X_OF dwgPartNumberLL) + (X_OF dwgPartNumberUR)) / 2) 
LET mid_Y ( ( (Y_OF dwgPartNumberLL) + (Y_OF dwgPartNumberUR)) / 2) 
LET midpoint {PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmPart Number " ) 

tag InfoText dwgPartNumberLL dwgPartNumberUR midpoint 

LET dwgScaleLL { (PNT_XY 257.5177533692 0.0273963937433024) + LL) 

LET dwgScaleUR ((PNT_XY 282.80378897549 11.2159077239601) + LL) 

LET mid_X { ( (X_0F dwgScaleLL) + (X_OF dwgScaleUR) ) / 2) 

LET mid_Y ( ( (Y_OF dwgScaleLL) + (Y_OF dwgScaleUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmScale") 

tag InfoText dwgScaleLL dwgScaleUR midpoint 

LET sheetNumberLL ( (PNT_XY 2 82.80378 8 9754 9 0.0273963937 433024) + LL) 

LET sheetNumberUR ( (PNT__XY 2 98.243934 61118 9 11 . 2159077239601 ) + LL) 

LET mid_X ( { (X_OF sheetNumberLL) + (X_OF sheetNumberUR)) / 2) 

LET mid_Y ( ( (Y_OF sheetNumberLL) + (Y_OF sheetNumberUR)) / 2) 

LET midpoint (PNT__XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmSheetNo" ) 

tag InfoText sheetNumberLL sheetNumberUR midpoint 

LET numberOfSheetsLL ( (PNT_XY 298.243934611189 0.474936846951962) + LL) 
LET numberOf Sheet sUR ((PNT_XY 316.593093192745 10.9921374 973558) + LL) 
LET mid_X ( { (X_OF numberOfSheetsLL) + (X_OF numberOf SheetsUR) ) / 2) 
LET mid Y ( ( (Y_OF numberOfSheetsLL) + (Y_OF numberOf SheetsUR) ) / 2) 
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LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + ,f __mkmSheetQty" ) 

tag InfoText numbe r Of Sheet sLL numberOf SheetsUR midpoint 

LET drawingNumberLL ((PNT_XY 316.5930931927 45 -0.1963738328 61042) + LL) 
LET drawingNumberUR ( (PNT_XY 38 9.7 659572 92363 11.2159077239601) + LL) 
LET mid_X ( ( (X_OF drawingNumberLL) + (X_OF drawingNumberUR)) / 2) 
LET mid_Y { ( (Y_OF drawingNumberLL) + (Y_OF drawingNumberUR)) / 2) 
LET midpoint (PNT_XY mid_X mid__Y) 

LET InfoText (STR mysheetnum + n _mkmDwgNumberL" ) 

tag InfoText drawingNumberLL drawingNumberUR midpoint 

LET itemNumberLL ( ( PNT_XY 185.911280855812 46.1240630742365) + LL) 

LET itemNumberUR ( ( PNT_XY 198.218 643319051 54.17 97 91231992 6) + LL) 

LET mid_X ( ( (X_OF itemNumberLL) + <X__OF itemNumberUR)) / 2) 

LET mid_Y { ( (Y_OF itemNumberLL) + (Y_OF itemNumberUR)) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmltem") 

tag InfoText itemNumberLL itemNumberUR midpoint 

LET itemQuantityLL ( (PNT_XY 198.218 643319051 46.3478333008409) + LL) 

LET itemQuantityUR ( (PNT_XY 210.749776008894 54.1797912319926) + LL) 

LET mid_X ( ( (X_OF itemQuantityLL) + (X_OF itemQuantityUR)) / 2) 

LET mid_Y ( ( (Y_OF itemQuantityLL) + (Y_OF itemQuantityUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkml temQty " ) 

tag InfoText itemQuantityLL itemQuantityUR midpoint 

LET partMatDescriptionLL ((PNT_XY 210.52 60057 8228 9 4 6.12406307 42365) + LL) 
LET partMatDescriptionUR ( (PNT__XY 2 91.0832 8735985 54.17 97 91231992 6) + LL) 
LET mid_X (( (X_OF partMatDescriptionLL) + (X_OF partMatDescriptionUR) ) / 2) 
LET mid_Y (( (Y_OF partMatDescriptionLL) + (Y_OF partMatDescriptionUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmPartMat IDescription" ) 

tag InfoText partMatDescriptionLL partMatDescriptionUR midpoint 

LET materialPartNumberLL ( (PNT_XY 2 90.85951713324 6 4 6.124 0630742365) + LL) 
LET materialPartNumberUR ( (PNT_XY 325.991442710127 54.17 97 91231992 6) + LL) 
LET mid_X (( (X_OF materialPartNumberLL) + (X_OF materialPartNumberUR) ) / 2) 
{ LET mid_Y ( ( (Y_OF materialPartNumberLL) + (Y_OF materialPartNumberUR)) / 2) } 
LET mid_Y ( (Y_OF materialPartNumberLL) +2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + u _mkmMatlPartNo n ) 

tag InfoText materialPartNumberLL materialPartNumberUR midpoint 

LET materialDrawingNumberLL ( (PNT_XY 325.991442710127 4 6.12406307423 65) + LL) 
LET materialDrawingNumberUR ( (PNT_XY 358.438125567755 53.9560210053883) + LL) 
LET mid_X ( ( (X_OF materialDrawingNumberLL) + (X_OF materialDrawingNumberUR) ) / 

2 ) 

{ LET mid Y ( ( (Y_OF materialDrawingNumberLL) + (Y_OF materialDrawingNumberUR) ) 
/ 2) } 

LET mid_Y ( (Y_OF materialDrawingNumberLL) + 2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmMatlDwgNo" ) 

tag InfoText materialDrawingNumberLL materialDrawingNumberUR midpoint 

LET materialSpecLL ((PNT_XY 357.990585114547 4 6.3478333008409) + LL) 
LET materialSpecUR ( (PNT_XY 389.989727518967 54.1797912319926) + LL) 
LET mid_X (( (X_OF materialSpecLL) + (X_0F materialSpecUR) ) / 2) 
{ LET mid_Y ( ( (Y_OF materialSpecLL) + (Y_OF materialSpecUR)) / 2) } 
LET mid Y ( (Y_OF materialSpecLL) + 2)) 
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LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmMatlSpec" ) 

tag InfoText materialSpecLL materialSpecUR midpoint 

iSE IF (bd size = 1 A' ) 

LET drawnByLL ( <PNT_XY 62.6256472409688 31.1835392254 059) + LL) 

LET drawnByUR { (PNT_XY 109.261889333875 41.0488981296745) + LL) 

LET mid_X ( ( (X_OF drawnByLL) + <X_OF drawnByUR)) / 2) 

LET mid_Y ( ( (Y_0F drawnByLL) + (YJDF drawnByUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDrawnBy" ) 

tag InfoText drawnByLL drawnByUR midpoint 

LET drawnBy dateLL ((PNT_XY 109.2 618 8 9333875 31.631964 6301453) + LL) 

LET drawnBy_dateUR { (PNT_XY 134.822137 40402 6 41.0488981296745) + LL) 

LET mid_X ( ( (X_OF drawnBy_dateLL) + (X_OF drawnBy_dateUR) ) / 2) 

LET mid_Y (((YJDF drawnBy_dateLL) + (Y_OF drawnBy_dateUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDrawnDate" ) 

tag InfoText drawnBy_dateLL drawnBy_dateUR midpoint 

LET engrCheckerLL ( (PNT_XY 62.6256472409688 20.8697549163977) + LL) 
LET engrCheckerUR ( (PNT_XY 108.8134 63929136 31.1835392254059) + LL) 
LET mid_X ( ( (X_OF engrCheckerLL) + (X_OF engrCheckerUR)) / 2) 
LET mid_Y ( ( (Y_OF engrCheckerLL) + (Y_OF engrCheckerUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmEngChecker " ) 
tag InfoText engrCheckerLL engrCheckerUR midpoint 

LET engrChecker_dateLL ( (PNT_XY 108.8134 63929136 21.093967 6187674) + LL) 

LET engrChecker_dateUR ( (PNT_XY 134.373711999286 31.4 07 7519277756) + LL) 

LET mid_X ( ( (X_OF engrChecker_dateLL) + (X_0F engrChecker_dateUR) ) / 2) 

LET mid_Y ( ( (Y__OF engrChecker_dateLL) + (Y_OF engrChecker_dateUR) ) / 2) 

LET midpoint { PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmCheckDate" ) 

tag InfoText engrChecker_dateLL engrChecker_dateUR midpoint 

LET relToProdLL ( (PNT_XY 62.84 98599433385 11.004396012129) + LL) 
LET relToProdUR { (PNT_XY 109.037 67 6631506 21.3181803211372) + LL) 
LET mid_X ( ( (X_OF relToProdLL) + (X_OF relToProdUR) ) / 2) 
LET mid_Y ( ( (Y_OF relToProdLL) + (Y_OF relToProdUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + n _mkmRelToProd" ) 
tag InfoText relToProdLL relToProdUR midpoint 

LET relToProd_dateLL ( (PNT_XY 109.261889333875 11.4528214168685) + LL) 

LET relToProd_dateUR ( (PNT_XY 134.597 924701656 20.64 5542214 028) + LL) 

LET mid_X ( ( (X_OF relToProd_dateLL) + (X_OF relToProd_dateUR) ) / 2) 

LET mid_Y ( ( (Y_OF relToProd__dateLL) + (Y_OF relToProd_dateUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRelDate" ) 

tag InfoText relToProd_dateLL relToProd_dateUR midpoint 

LET fileRevisedByLL ( (PNT_XY 62.17722183622 93 0.24218 62 98381355) + LL) 
LET fileRevisedByUR ( (PNT_XY 109.037676631506 11.4528214168 685) + LL) 
LET mid_X ( ( (X_OF fileRevisedByLL) + (X_OF fileRevisedByUR)) / 2) 
LET mid_Y ( ( (Y_OF fileRevisedByLL) + (Y_0F fileRevisedByUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmFileRevisedBy" ) 
tag InfoText fileRevisedByLL fileRevisedByUR midpoint 
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LET fileRevisedBy dateLL ( (PNT_XY 108.5892512267 66 0.017 9735960116147) + LL) 
LET fileRevisedBy^dateUR ( (PNT_XY 134.597 924701656 11.228608714 4 987) + LL) 
LET mid X (((X_OF f ileRevisedBy_dateLL) + (X_OF f ileRevisedBy_dateUR) ) / 2) 
LET mid~Y (<(Y_OF f ileRevisedBy_dateLL) + (Y_OF f ileRevisedByjiateUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmFileRevisedByDate" ) 

tag InfoText f ileRevisedBy_dateLL f ileRevisedBy_dateUR midpoint 

LET dwgTitleLL ( (PNT_XY 134.597 924701656 11.4528214168 685) + LL) 
LET dwgTitleUR { (PNT_XY 202.9827 98 924428 41.0488981296745) + LL) 
LET mid__X ( { (X_OF dwgTitleLL) + (X_OF dwgTitleUR)) / 2) 
LET mid_Y ( ( (Y_OF dwgTitleLL) + <Y_OF dwgTitleUR)) / 2) 

LET mid_Y { (Y_OF dwgTitleLL) + 4))} 
LET midpoint (PNT_XY mid_X mid_Y) 
LET InfoText (STR mysheetnum + M _mkmTitle" ) 
tag InfoText dwgTitleLL dwgTitleUR midpoint 

LET dwgPartNumberLL ( (PNT_XY 202.758586222058 11.6770341192382) + LL) 
LET dwgPartNumberUR ( (PNT_XY 266.8 834190998 04 21.5423930235069) + LL) 
LET mid_X ( ( (X_OF dwgPartNumberLL) + (X_OF dwgPartNumberUR)) / 2) 
LET mid_Y ( ( (Y_OF dwgPartNumberLL) + (YJDF dwgPartNumberUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmPartNumber " ) 

tag InfoText dwgPartNumberLL dwgPartNumberUR midpoint 

LET dwgScaleLL ((PNT_XY 134.597 924701656 0.017 9735960116147) + LL) 

LET dwgScaleUR ( (PNT_XY 159.7 097 47367 067 11.228 6087144 987) + LL) 

LET mid_X ( ( (XJDF dwgScaleLL) + (XJDF dwgScaleUR) ) / 2) 

LET mid__Y ( ( (Y_OF dwgScaleLL) + (YJDF dwgScaleUR)) / 2) 

LET midpoint (PNTJCY mid_X mid_Y) 

LET InfoText (STR mysheetnum + " jnkmScale" ) 

tag InfoText dwgScaleLL dwgScaleUR midpoint 

LET sheetNumberLL ( (PNT_XY 159.2 61321962328 0.24218 6298381355) + LL) 

LET sheetNumberUR ( (PNT_XY 17 4.059360318731 11.452 8214168 685) + LL) 

LET mid_X ( ( (X_OF sheetNumberLL) + (X_OF sheetNumberUR)) / 2) 

LET mid_Y ( ( (Y_OF sheetNumberLL) + (YJDF sheetNumberUR)) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmSheetNo" ) 

tag InfoText sheetNumberLL sheetNumberUR midpoint 

LET numberOfSheetsLL ( (PNT_XY 174.059360318731 0.24218 62 98381355) + LL) 

LET numberOfSheetsUR ( (PNT_XY 193.117440020159 11.004396012129) + LL) 

LET mid_X ( ( (X_OF numberOfSheetsLL) + (X_OF numberOfSheetsUR)) / 2) 

LET mid~Y ( ( (Y_OF numberOfSheetsLL) + (Y_OF numberOfSheetsUR)) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmSheetQty" ) 

tag InfoText numberOfSheetsLL numberOfSheetsUR midpoint 

LET drawingNumberLL ( (PNT_XY 193.341652722529 0.242186298381355) + LL) 
LET drawingNumberUR { ( PNT_XY 2 66.434 993695065 11.4528214168 685) + LL) 
LET mid_X { ( (X_OF drawingNumberLL) + (XJDF drawingNumberUR)) / 2) 
LET mid_Y ( ( (Y_OF drawingNumberLL) + (Y_OF drawingNumberUR)) / 2) 
LET midpoint (PNT__XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDwgNumberL") 

tag InfoText drawingNumberLL drawingNumberUR midpoint 

LET itemNumberLL ((PNT_XY 62.62564724 09688 46.2057902841786) + LL) 

LET itemNumberUR ( (PNT_XY 74.9573458713046 54.0532348671196) + LL) 

LET mid_X ( ( (X_OF itemNumberLL) + (XJDF itemNumberUR)) / 2) 

LET mid Y ( ( (Y OF itemNumberLL) + (Y_OF itemNumberUR)) / 2) 
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LET midpoint <PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmltem" ) 

tag InfoText itemNumberLL itemNumberUR midpoint 

LET itemQuantityLL ( (PNT_XY 7 4.957345871304 6 4 6.2057 902 84178 6) + LL) 

LET itemQuantityUR ( {PNT_XY 87.28 904450164 05 54.0532348 671196) + LL) 

LET mid_X { ( (X__OF itemQuantityLL) + (X_OF itemQuantityUR)) / 2) 

LET mid_Y ( ( (Y_OF itemQuantityLL) + (Y_OF itemQuantityUR)) / 2) 

LET midpoint {PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkml temQty " ) 

tag InfoText itemQuantityLL itemQuantityUR midpoint 

LET partMatDescriptionLL ((PNT_XY 87.5132572040102 4 6.430002 98 65484) + LL) 
LET partMatDescriptionUR ( (PNT_XY 167.781404652378 54.0532348671196) + LL) 
LET mid_X ( ( (X_OF partMatDescriptionLL) + <X_0F partMatDescriptionUR)) / 2) 
LET mid Y ( ( (Y_OF partMatDescriptionLL) + (Y_OF partMatDescriptionUR)) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText ( STR mysheetnum + "_mkmPartMat IDescription" ) 

tag InfoText partMatDescriptionLL partMatDescriptionUR midpoint 

LET materialPartNumberLL ((PNT_XY 167.781404 652378 46.4300029865484) + LL) 
LET materialPartNumberUR { ( PNT_XY 202.758586222058 53.82902216474 99) + LL) 
LET mid_X (( (X_OF materialPartNumberLL) + (X_OF materialPartNumberUR) ) / 2) 
{ LET mid_Y (( (Y_OF materialPartNumberLL) + (Y_OF materialPartNumberUR) ) / 2) } 
LET mid_Y ( (Y_OF materialPartNumberLL) + 2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmMatlPartNo" ) 

tag InfoText materialPartNumberLL materialPartNumberUR midpoint 

LET materialDrawingNumberLL ( {PNT_XY 203.207011626797 4 6.2057902841786) + LL) 
LET materialDrawingNumberUR ( (PNT_XY 235.2 69428 065671 54.053234 8 671196) + LL) 
LET mid_X ( ( (X_OF materialDrawingNumberLL) + (X_OF materialDrawingNumberUR) ) / 

2) 

{ LET mid Y ( ( (Y_OF materialDrawingNumberLL) + (Y_OF materialDrawingNumberUR)) 
/ 2) } 

LET mid_Y ( (Y_OF materialDrawingNumberLL) + 2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmMatlDwgNo" ) 

tag InfoText materialDrawingNumberLL materialDrawingNumberUR midpoint 

LET materialSpecLL ((PNT_XY 235.269428065671 46.4300029865484) + LL) 
LET materialSpecUR ( (PNT_XY 266.883419099804 54.0532348 671196) + LL) 
LET mid_X {( (X_OF materialSpecLL) + <X_OF materialSpecUR) ) / 2) 
{ LET mid_Y ( ( (Y_OF materialSpecLL) + (Y_OF materialSpecUR)) / 2) } 
LET mid_Y ( (Y_OF materialSpecLL) + 2)) 
LET midpoint <PNT_XY mid_X mid_Y) 
LET InfoText (STR mysheetnum + "_mkmMatlSpec" ) 
tag InfoText materialSpecLL materialSpecUR midpoint 

END__IF 
END DEFINE 
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DEFINE addTextElements 
LOCAL blanklnfo 
LOCAL mysheetnum 
LOCAL delimiter 
LOCAL myPart_ID 
LOCAL mybd_size 
LOCAL myCommand 
LOCAL myLL 
LOCAL myUR 
LOCAL old_mySheet 
LOCAL mySheet 

LET mysheetnum 0 
LET old_mySheet "" 

OPEN_INFILE 1 (blanklnf os) 
READ_FILE 1 blanklnfo 

WHILE (blanklnf o<> ' END-OF-FILE 1 ) 
LET delimiter (POS blanklnfo ) 

LET mysheetnum (SUBSTR blanklnfo 1 (delimiter -1)) 

OPEN INFILE 4 ('| head -n 1 +STR mysheetnum+ 1 1 +borderPartNos+ 1 | tail -nl 1 ) 
READ~FILE 4 mySheet 

LET mybd_size (SUBSTR mySheet 1 1) 
LET myPart_ID (SUBSTR mySheet 2 5) 
CATCH NO_VIEWPORT_RANGE 1 
IF (STR mySheet <> STR old_mySheet) 

EDIT_PART myPart_ID 

INQ_ENV 7 

LET myLL ( INQ 101) 
LET myUR (INQ 102) 
WINDOW myLL myUR 
END_IF 

DISPLAY ("adding text to blank field: " + STR blanklnf o+" on sheet "+STR 
mysheetnum) 
{ 

addTextRb 
addTextTb 

} 

LET old_mySheet mySheet 

READ_FILE 1 blanklnfo 
END_WHILE 
CLOSE_FILE 4 
END DEFINE 
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DEFINE delrb 
LOCAL myXl 
LOCAL myX2 
LOCAL myY 
LOCAL uID 

{open the cords file and loop through the cords deleting the extended rb} 

OPEN_INFILE 5 cords 

READ_FILE 5 uID 

WHILE (uID <> 1 END-OF-FILE 1 ) 

READ_FILE 5 cordsLinel 

READ_FILE 5 cordsLine2 

LET delpointl <PNT_XY VAL cordsLinel VAL cordsLine2) 

LET splitpointl (PNT_XY (VAL cordsLinel +2) (VAL cordsLine2 +25)) 

LET myXl ({VAL cordsLinel) -2) 

READ_FILE 5 cordsLine3 

READ_FILE 5 cordsLine4 

LET delpoint2 (PNT_XY VAL cordsLine3 VAL cordsLine4) 

LET splitpoint2 (PNT_XY (VAL cordsLine3 -2) (VAL cordsLine4 -2)) 

LET myX2 ((VAL cordsLine3) +2) 

LET myY {(VAL cordsLine2) -2) 
IF (mmd="ON") 

DISPLAY ("delpointl is: "+STR delpointl) 
DISPLAY ("delpoint2 is: " + STR delpoint2) 
DISPLAY ("splitpointl is: "+STR splitpointl) 
DISPLAY ("splitpoint2 is: "+STR splitpoint2) 
END_IF 

{IF (olev <> 'END-OF-FILE 1 ) } 

{by checking the difference between the 2 x values you can see if} 
{the distance means its a banzai border structure or not} 
IF ((VAL cordsLinel - VAL cordsline3) > 195) 
ELSE 

LET myXl (myXl -14) 
END_IF 

LET linepointl (PNT_XY myXl myY) 

LET linepoint2 ( PNT_XY myX2 myY) 

CATCH RANGE 8 

CATCH NO_V I E W PORT_RANGE 8 

EDIT_PART uID 

CATCH RANGE 0 

CATCH NO_VIEWPORT_RANGE 0 

WINDOW delpointl delpoint2 

CATCH RANGE 0 

CATCH NO_VIEWPORT_RANGE 0 

TRAP_ERROR 

SPLIT splitpointl splitpoint2 
END 

DELETE delpointl delpoint2 
END 

{ — del everything that may not have been part of the current part} 
IF (mmd="ON") DISPLAY ("ready to gather to current part delpointl to delpoint2" 
END_IF 

GATHER delpointl delpoint2 
END 

IF (mmd="ON") DISPLAY ("now delete everything from delpointl to delpoint2") 
END_IF 

DELETE delpointl delpoint2 
END 

IF <pnts="ON") 
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POINT delpointl 
POINT delpoint2 
END_IF 
END_IF 
RED 

CATCH RANGE 8 

CATCH NO_VIEWPORT_RANGE 2 

LINE linepointl linepoint2 

END 

READ_FILE 5 uID 
EN D_WHILE 
WHITE 
END DEFINE 
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DEFINE f ind_border_type 
PARAMETER direction 

{ 

LOCAL UR_x 
LOCAL UR_y 
LOCAL inqpoint 
LOCAL Part_ID 
LOCAL end_string 
LOCAL xof 
LOCAL eltype 
LOCAL linesend_y 
LOCAL linestart_y 
LOCAL newlinesend_y 
LOCAL newlinestart_y 
LOCAL xLine 
LOCAL myX 
LOCAL semi 
LOCAL mymatch 

} 

CATCH NO_VIEWPORT_RANGE 1 

{LET bd_size (SUBSTR myLine 1 1) } 

{ LET Part_ID { SUBSTR myLine 2 5) } 

{======EDIT THE BORDER PART======} 

EDIT_PART Border_ID 
INQ_ENV 7 
LET LL (INQ 101) 
LET UR (INQ 102) 

{ ======ADJUST LOCATION OF LL AND UR FOR NEW GRID BORDERS} 

IF (mmd="ON") DISPLAY < "border_type is: " +border_type ) END_IF 
{ 

IF (border_type = "NEW") 

DISPLAY ("border_type is NEW, adjust LL and UR" ) 

LET LL_x ( (X_OF LL) +10) 

LET LL_y { (Y_OF LL) +10) 

LET UR_x ( (X_OF UR) -10) 

LET UR_y ( (Y_OF UR) -10) 
ELSE 

} 

LET LL_x (X_OF LL) 
LET LL_y (Y_OF LL) 
LET UR_x (X_OF UR) 
LET UR_y (Y_OF UR) 
{ END_IF } 



LET inqpoint (PNT_XY (UR_x -2) <UR_y -11)) 

{ ====== if DIRECTION IS Y ASSIGN END_STRING AND XOF AND BE DONE====== } 

IF (DIRECTION = f y' ) 

LET end_string (LL_y +54.5) 

LET xof UR_y 

mapOldBorderRevBlock 
ELSE 

(========GOING IN X DIRECTION; FIND the left end of the RevBlock} 

LET ninqpoint (PNT_XY (UR_x -4) (UR_y -3)) 
REPEAT 

IF (pnts="ON") POINT ninqpoint END_IF 
INQ_ELEM ninqpoint 
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LET eltype (INQ 4 03) 
IF (mmd="ON M ) DISPLAY ("element type found is: " + STR eltype) END_IF 
IF (STR eltype = 'LINE 1 ) 
LET revend_x (INQ 101) 
LET revstart_x (INQ 102) 
IF (mmd="ON") DISPLAY ("found a line: " + STR revend_x) END_IF 
END_IF 

LET ninqpoint (ninqpoint + -.5,0) 
UNTIL (STR eltype = 1 LINE * ) 

{========GOING IN X DIRECTION; FOUND the left end of the RevBlock} 

IF (mmd="0N") DISPLAY ("FOUND left side of RevBlock. End is: " + STR revend_x) 
END_IF 

LET revendX (X_OF revend_x) 

LET end_string (UR_x - revendX) 

{========HORIZONTAL LENGTH OF REVBLOCK:} 

IF (mmd="ON") DISPLAY ("horizontal end of RevBlock: 'end_string' is: " + STR 
end_string) END_IF 

{====== „ FRO M LENGTH OF REVBLOCK, DETERMINE BORDER TYPE} 

LET myint (INT end_string) 
IF (mmd="ON") DISPLAY ("myint is: M + STR myint) END__IF 

IF (myint > 250) 

IF (mmd="ON") DISPLAY ("myint is greater than 250, revBlock is from the OLD 
Banzai border") END_IF 

LET olev "olev" 

IF (bd_size = 'A' ) 

LET end_string (UR__x -2 60) 

ELSE 

LET end_string (UR_x -260) 
END_IF 
LET xof UR_x 
mapOldBorderRevBlock 
ELSE_IF ((myint > 180) AND (myint < 250)) 
IF (mmd="ON" ) DISPLAY ("myint is greater than 180 and less than 250, revBlock 
from a NEW Structured border") END_IF 

ELSE_IF (myint < 180) 
IF (mmd="ON") DISPLAY ("myint is less than 180, revBlock is from an OLD STD 
border") END_IF 

LET olev "END-OF-FILE" 
IF (bd_size = ' A' ) 

LET end_string (UR_x -165) 
ELSE 

LET end_string (UR_x -171) 
END_IF 
LET xof UR_x 
mapOldBorderRevBlock 
END_IF 
END_IF 
END DEFINE 
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DEFINE Load 

PARAMETER Filename 
LOAD Filename 
CHECK_3D_GEO_MODIFY OFF 

SHOW GLOBAL INFOS 1 DOCU_MARKED_AS_INVISIBLE ' OFF 
END DEFINE 



200309767 - Appendix A 27 

© Copyright 2003 Hewlett-Packard Development Company, LP. 



DEFINE mapOldBorderRevBlock 

IF (mmd="ON") DISPLAY ("in mapOldBorderRevBlock") END_IF 

IF (mmd="ON") 

DISPLAY ("Olev is: " + olev) 

DISPLAY ( 1 Start_point is: 1 + STR ninqpoint) 
DISPLAY ("end_string is: "+ STR end_string) 
DISPLAY ("xof is: "+ STR xof) 
END_IF 

INQ_ELEM inqpoint 

LET eltype (INQ 403) 

IF (STR eltype = 1 LINE 1 ) 

LET linesend_y (INQ 101) 

LET linestart_y (INQ 102) 
ELSE 

LET linesend_y (0,0) 
LET linestart_y (0,0) 
END IF 



IF (mmd="ON") DISPLAY ( "linesend_y is " + STR linesend_y) END_IF 
IF (mmd="ON") DISPLAY (" lines tart_y is " + STR linestart_y) END_IF 



{=========G0ING IN x DIRECTION MAP OUT REVBLOCK COLUMNS } 

{========GOING IN Y DIRECTION MAP OUT REVBLOCK ROWS } 

{========WRITE TO FILE THE COORDINATES OF REVBLOCK ROWS AND COLUMNS } 

REPEAT 

IF (direction = "y") 

LET inqpoint (inqpoint + 0,-.5) 

ELSE 

LET inqpoint (inqpoint + -.5,0) 
END_IF 

INQ_ELEM inqpoint 
LET eltype (INQ 403) 
IF (mmd="ON") 

DISPLAY_NO_WAIT ("eltype is: "+ STR eltype) 
DISPLAY_NO_WAIT ("inqpoint is: "+ STR inqpoint) 
END_IF 

IF (pnts="ON") POINT inqpoint END_IF 

IF (STR eltype = 'LINE') 

LET newlinesend_y (INQ 101) 
LET newlinestart_y (INQ 102) 

IF (mmd="ON") 

DISPLAY_NO_WAIT ( "newlinesend_y is: " + STR newlinesend_y ) 
DISPLAY_NO_WAIT ( "newlinestart_y is: " + STR newlinestart_y) 
END_IF 

IF (newlinesend_y = linesend_y) 
ELSE 

LET linesend_y newlinesend_y 

IF (pnts="ON") POINT inqpoint END_IF 

IF (direction = "y") 

LET xof (Y_OF linesend_y) 
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ELSE 

LET xof (X_OF linesend_y) 
END_IF 

IF (direction = "y") 

OPEN__INFILE 7 message_file 
READ_FILE 7 xLine 
LET mymatch 0 

WHILE (xLine<> 1 END-OF-FILE 1 ) 
LET myChar (SUBSTR xLine 1 1) 
IF (myChar - 'X 1 ) 
IF (mmd="ON") DISPLAY ("xline is: " + STR xLine) END_IF 
LET semi ( POS xLine ' ;') 
LET myX (SUBSTR xLine 3 (semi -3) ) 
IF (mmd="ON") DISPLAY ( "myX is: " + STR myX) END_IF 

INQ_ELEM (PNT_XY (VALmyX) ( ( Y_0F newlinesend_y ) +2 ) ) 
LET eltype (INQ 403) 
LET mylinesend_y (INQ 101) 
LET mylinestart_y (INQ 102) 
IF (mmd="ON") DISPLAY ("x_of mylinesend_y is: " + STR (X_OF mylinesend_y) ) 
END IF 

IF Tmmd="ON") DISPLAY ("x_of mylinestart_y is: " + STR (X__OF mylinestart_y) ) 
END_IF 

IF ( (myX = STR (X_OF mylinesend_y ) ) OR (myX = STR (X_OF 
mylinestart_y) ) ) 

LET mymatch 1 

IF (mmd="ON") DISPLAY ("MATCH: " + STR myX+" " + STR (X_OF mylinesend_y ) + " "+STR 
(X_OF mylinestart_y) ) END_IF 
ELSE 

LET mymatch 0 

IF (mmd="ON") DISPLAY ("NOT A MATCH: "+STR myX+" " + STR (X_OF mylinesend_y ) + " 
"+STR (X_OF mylinestart_y) ) END_IF 
END_IF 

END_IF 

READ_FILE 7 xLine 
END_WHILE 
CLOSE_FILE 7 

IF (mymatch = 1) 

WRITE_FILE 3 ("Y "+STR (Y_OF newlinesend_y ) + " ; "+STR 
Border_ID+" ; SHEET - "+STR mysheetnum) 
ELSE 

IF (mmd="0N") DISPLAY ("making xof end_string") END_IF 
LET xof end_string 
END_IF 

LET mymatch 0 
ELSE 

WRITE__FILE 5 ("X "+STR (X_0F newlinesend_y) +" ; "+STR Border_ID+" ; SHEET 
"+STR mysheetnum) 

WRITE_FILE 3 ("X "+STR (X_0F newlinesend_y ) +" ; "+STR Border_ID+" ; SHEET 
"+STR mysheetnum) 
END_IF 

IF (mmd="ON") DISPLAY_NO_WAIT ("xof is: " + STR xof) END_IF 
END_IF 
END_IF 

UNTIL (xof <= end_string) 
END 

END DEFINE 



200309767 - Appendix A 29 

© Copyright 2003 Hewlett-Packard Development Company, LP. 



DEFINE newDelRB 
LOCAL mycord 
LOCAL delimiterl 
LOCAL delimiter2 
LOCAL mydirection 
LOCAL DX_point 
LOCAL DY_point 
LOCAL mydelpoint 

EDIT_PART RB I D_J3LOBAL 
IF (mmd="ON") 

DISPLAY ("RBLL IS: "+ STR RBLL) 
DISPLAY RBLL 
DISPLAY (Y_OF RBLL) 

DISPLAY ("DY_point is: *" + joeblow + "*") 
DISPLAY ("about to delete from RBLL to RBUR" ) 
END_IF 

DELETE (RBLL -1,-1) (RBUR +1.5,-21) 
END 

{now access /tmp/RBcords to get each X and RBLL_Y to delete} 
OPEN_INFILE 5 mycordFile 
READ_FILE 5 mycord 
IF (mmd="ON") DISPLAY ("mycord is: " + STR mycord) END_IF 
WHILE (mycord <> 1 END-OF-FILE 1 ) 

LET delimiterl (POS mycord ' ' ) 

LET delimiter2 (POS mycord ';') 

LET mydirection (SUBSTR mycord 1 (delimiterl -1)) 
IF (mmd="ON" ) DISPLAY ("mydirection is: " + STR mydirection) END_ 
IF (mydirection = *X ? ) 

LET DX_point (SUBSTR mycord 3 (delimiter2 -3) ) 
IF (mmd="ON") DISPLAY ("DX_point is: *" + DX_point + "*") END_IF 

LET mydelpoint ( PNT_XY (VAL DX_point) (Y_OF RBLL)) 
IF (mmd="ON") DISPLAY ("mydelpoint is: "+ STR mydelpoint) END_IF 
DELETE mydelpoint END 
END__IF 

READ_FILE 5 mycord 
END_WHILE 
CLOSE FILE 5 



END DEFINE 
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DEFINE newTagNotes 
LOCAL myLine 
LOCAL my ID 
LOCAL myName 
LOCAL NOTESLL 
LOCAL NOTESUR 
LOCAL mylnfotext 
LOCAL endSubPartList 

IF (mmd="ON") DISPLAY ("Running newTagNotes") END_IF 
IF (mmd="ON") 

DISPLAY { "borderPartNos file is: " + borderPartNos ) 
DISPLAY ( "mysheetnum is: " + STR mysheetnum) 
END_IF 

LET mylnfoText (STR mysheetnum + "_mkmNotes") 
IF (mmd="ON") DISPLAY ("mylnfoText: "+ mylnfoText) END_IF 

{===GET THE BORDER SUBPART_ID AND NAME=== } 

LET endSubPartList "false" 

OPEN_INFILE 9 borderPartNos 

READ_FILE 9 myLine 
IF (mmd="ON") 

DISPLAY ("Line from partlist:" + myline) 

DISPLAY ("Border_ID is: " + STR Border_ID) 
END_IF 

WHILE ( (myLineO 1 END-OF-FILE 1 ) AND (endSubPartList <>" true" ) ) 
LET space (POS myLine ' ' ) 
LET mylD (SUBSTR myLine 1 (space -1) ) 
LET myName (SUBSTR myLine (space +1) 80) 
IF (mmd="ON") DISPLAY ("myName: " + myName+ " Border_ID: "+ Border_ID) END 
(===FOUND BORDER BEING WORKED ON===} 
IF (myName = Border__ID) 
READ_FILE 9 myLine 

WHILE ((myLine <> 1 END-OF-FILE 1 ) AND (endSubPartList <>"true")) 
LET firstChar (SUBSTR myLine 1 1) 
LET space (POS myLine 1 f ) 
LET mylD (SUBSTR myLine 1 (space -1)) 
LET myName (SUBSTR myLine (space +1) 80) 
IF (mmd="ON") DISPLAY ("myName is: "+ STR myName) END_IF 

IF (mmd="0N") DISPLAY ("first char of myline is: " + firstChar) END_IF 
IF (firstChar = '-') 

LET subPartName (SUBSTR myName 1 6) 
IF (mmd="ON") DISPLAY ("subpart name is: " + subPartName) END_IF 
IF ({SUBSTR myName 15) = 1 NOTES 1 ) 
EDIT_PART my ID 

IF (mmd="ON") DISPLAY ("edited part: " + STR myName) END_IF 
INQ_ENV 7 

LET NOTESLL ( INQ 101) 
LET NOTESUR { INQ 102) 

LET NOTESLL (NOTESLL + (PNT_XY -1 -1)) 
LET NOTESUR (NOTESUR + (PNT_XY 1 1)) 
IF (mmd="ON") POINT NOTESLL POINT NOTESUR END_IF 

ADD_ELEM__INFO mylnfotext SELECT SUBTREE TEXTS NOTESLL NOTESUR 

CONFIRM END 

END__IF 
ELSE 

LET endSubPartList "true" 
END IF 
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READ_FILE 9 myLine 
END_WHILE 
END__IF 

READ_FILE 9 myLine 
END_WHILE 
CLOSE_FILE 9 
END DEFINE 
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DEFINE newTagRB 
LOCAL myLine 
LOCAL myName 
LOCAL mylnfotext 
LOCAL endSubPartList 
LOCAL new_cord 
LOCAL old_y 
LOCAL my_loc 
LOCAL RBcords 

LOCAL mmd 
LET mmd "OFF" 

{ 

LOCAL mycordFile 
LOCAL RBID 
LOCAL RBLL 
LOCAL RBUR 

} 

CATCH NO_VIEWPORT_RANGE 1 
IF {mmd="ON") DISPLAY ("Running newTagRB") END_IF 
LET mylnfoText (STR mysheetnum + "_mkmRevBlock" ) 
LET mycordFile ( 1 / tmp/RBLineCords . 1 +uniqID) 
LET RBcords ( ' / tmp/RBFieldCords . ■ +uniqID) 
OPEN_OUTFILE 5 DEL_OLD APPEND mycordFile 

{===GET THE BORDER SUBPART_ID AND NAME=== } 
LET endSubPartList "false" 
OPEN_INFILE 9 border PartNos 
READ_FILE 9 myLine 

IF (mmd="ON") DISPLAY ("myline: " + myline) END_IF 

WHILE ( (myLineO 1 END-OF-FILE f ) AND (endSubPartList <>"true" ) ) 
LET space (POS myLine ? f ) 
{ LET RBID (SUBSTR myLine 1 {space -1))} 
LET myName (SUBSTR myLine (space +1) 80) 

{===FOUND BORDER BEING WORKED ON=== } 

IF (myName = Border_ID) 

IF (mmd="ON") DISPLAY ("myName: " + myName+ " Border_ID: "+ Border_ID) END_IF 

READ_FILE 9 myLine 

IF (mmd="ON" ) DISPLAY ("myline: " + myline) END_IF 

WHILE ((myLine <> 1 END-OF-FILE 1 ) AND (endSubPartList <>"true")) 
LET firstChar (SUBSTR myLine 1 1) 
LET space (POS myLine ' 1 ) 
LET RBID (SUBSTR myLine 1 (space -1)) 
LET myName (SUBSTR myLine (space +1) 80) 
IF (firstChar « f ~ f ) 

LET test (SUBSTR myName 1 6) 

IF ((SUBSTR myName 16)= 1 REV_BL 1 ) 

LET RB I D_GLOB AL (SUBSTR myLine 1 (space -1)) 
EDIT_JPART RBID 
INQ_ENV 7 

LET RBLL { INQ 101) 
LET RBUR (INQ 102) 

SPLIT (RBLL -1,-1) (RBUR +1,1) END 
IF (mmd="ON") POINT RBLL POINT RBUR END_IF 
{===MAP REVBLOCK X CORDS=== } 
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IF (mmd="ON") DISPLAY ("X " + STR (X_OF RBUR) +" ; "+STR RBID+"; SHEET "+STR 
mysheetnum) 

mysheetnum) 



mysheetnum) END IF 

WRITE FILE 5 ("X " + STR (X_OF RBUR) +" ; " + STR RBID+"; SHEET +STR 



LET old_x <X_OF RBUR) 
LET inqPoint (RBUR -2,-10) 
WHILE ( (X_OF inqPoint) >= X_OF RBLL) ) 
INQ_ELEM inqPoint 
LET eltype (INQ 403) 
IF (STR eltype - 'LINE') 
LET new_cord (INQ 101) 
IF ( (X_OF new_cord) <> old_x) 
IF (mmd="ON") DISPLAY ("X "+STR (X_OF new_cord) +" ; "+STR RBID+"; SHEET " + STR 

mysheetnum) END IF 

" WRITE_FILE 5 ("X " + STR (X_OF new_cord) + " ; "+STR RBID+"; SHEET 

" + STR mysheetnum) 

END_IF 

LET old_x (X_OF new_cord) 
END_IF 

LET inqPoint (inqPoint -.5,0) 
ENDJtfHILE 

{=== M AP REVBLOCK Y CORDS=== } 
IF (mmd="ON") DISPLAY ( "Y n +STR (Y_OF RBUR) + " ; "+STR RBID+"; SHEET " + STR 
mysheetnum) END IF 

WRITE_FILE 5 ("Y " + STR (YJDF RBUR) +" ; " + STR RBID+"; SHEET " + STR 

mysheetnum) 

LET old_y (Y_OF RBLL) 
LET inqPoint (RBUR -2,-5) 
WHILE ( (Y_OF inqPoint) >= Y_OF RBLL)) 
INQ_ELEM inqPoint 
LET eltype (INQ 403) 
IF (STR eltype = 1 LINE 1 ) 
LET new_cord ( INQ 101) 
IF { (Y_OF new_cord) <> old_y) 
IF (mmd="ON") DISPLAY ( "Y "+STR (Y_OF new_cord) +"; "+STR RBID+"; SHEET "+STR 
mysheetnum) END IF 

WRITE_FILE 5 ("Y "+STR (Y_OF new_cord) + " ; "+STR RBI D+ " ; SHEET 

"+STR mysheetnum) 

END_IF 

LET old_y (Y_OF new_cord) 
END_IF 

LET inqPoint (inqPoint -0,-.5) 
END_WHILE 
CLOSE_FILE 5 

{ ===GEN RBcords file===} 

{=== g enRBcords f /tmp/RBLineCords . f +uniqID > 
1 /tmp/RBFieldCords . f +uniqID} 

RUN GRAPHIC (MDXDIR+ 1 /bin/ genRBcords f + mycordFile +'> f + RBcords) 

{===TAG REV BLOCK====} 
OPEN_INFILE 6 RBcords 
READ_FILE 6 cordLine 
IF (mmd="ON") DISPLAY ("CordLine is: "+ cordLine) END_IF 
WHILE (cordLine <> 1 END-OF-FILE 1 ) 

LET myspace (POS cordLine 1 1 ) 

LET mycomma (POS cordLine 1 ,') 

LET mydistance (mycomma - (myspace+1) ) 

LET cordX (SUBSTR cordLine (myspace +1) mydistance) 

LET cordY (SUBSTR cordLine (mycomma +1) 80) 
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LET fieldLL (PNT_XY (VAL cordX) (VAL cordY) ) 

READ_FILE 6 cordLine 
LET myspace (POS cordLine ' ' ) 
LET mycomma (POS cordLine ' ,') 
LET mydistance (mycomma - (myspace+1) ) 
LET cordX (SUBSTR cordLine (myspace +1) mydistance) 
LET cordY (SUBSTR cordLine (mycomma +1) 80) 
LET fieldUR ( PNT_XY (VAL cordX) (VAL cordY)) 
IF <mmd="ON") POINT fieldLL POINT fieldUR END_IF 
LET mydistance (myspace - 1) 

LET fieldName (SUBSTR cordLine 1 mydistance) 
LET mylnfoText (STR mysheetnum + "_mkm"+ fieldName) 
IF (mmd="ON") DISPLAY ("FieldName is: "+ fieldName) END_IF 
INQ_ENV 8 

LET info_count (INQ 3) 

TEXT_ADJUST 1 
TEXT_SIZE 3.2 
CURRENT_FONT ■ hp__i 309 8_v 1 

CATCH NO_VIEWPORT_RANGE 0 

TRAP ERROR {needed for if there is no text within the box} 
ADD_ELEM_INFO mylnfotext SELECT SUBTREE TEXTS FieldLL FieldUR 

CONFIRM END 

INQ_ENV 8 

LET new_inf o__count (INQ 3) 
IF (new_info_count = info_count) 
{no text element was there} 

{place a text element with "XXX" value and tag} 

IF (fieldName = 'Title 1 ) 
TEXT_SIZE 5 

CURRENT_FONT 1 hp_block_v 1 

TEXT 'XXXX' (FieldLL + (PNT_XY 5 17.5)) END 

ADD_ELEM_INFO mylnfotext SELECT SUBTREE TEXTS FieldLL FieldUR 

CONFIRM END 

ELSE_IF (fieldName = ' Dwg_Number 1 ) 
TEXT_SIZE 5 

CURRENT_FONT 1 hp_block_v ? 

TEXT 'XXXX' (FieldLL + (PNT_XY 5 3)) END 

ADD_ELEM_INFO mylnfotext SELECT SUBTREE TEXTS FieldLL FieldUR 

CONFIRM END 

ELSE 

LET my_loc (POS fieldName '_') 

IF (STR my_loc = f 0 1 ) 

{only fill in row 1 empty fields?? unless revB?} 

{if last char of fieldName is a number, don't place text} 

TEXT 'XX' (FieldLL + (PNT_XY 5 2)) END 

ADD_ELEM_INFO mylnfotext SELECT SUBTREE TEXTS FieldLL 

FieldUR CONFIRM END 

END_IF 
END_IF 
ELSE 

{text elment was there and got tagged} 
END_IF 

IF (mmd="ON") POINT FieldLL POINT FieldUR END_IF 
READ_FILE 6 cordLine 
END_WHILE 
CLOSE FILE 6 
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END_IF 
ELSE 

LET endSubPartList "true" 
END_IF 

READ_FILE 9 myLine 
END_WHILE 
END_IF 

READ_FILE 9 myLine 
END__WHILE 
CLOSE_FILE 9 
END DEFINE 
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DEFINE newTagTB 
LOCAL TBLL 
LOCAL TBUR 
LOCAL myLine 
LOCAL my ID 
LOCAL myName 
LOCAL mylnfotext 
LOCAL endSubPartList 
LOCAL TBcords 
LOCAL myspace 
LOCAL mycomma 
LOCAL fieldLL 
LOCAL fieldUR 
LOCAL fieldName 
LOCAL cordLine 
LOCAL cordX 
LOCAL cordY 
LOCAL mmd 

LET mmd "OFF" 

IF (mmd="ON" ) DISPLAY ("Running newTagTB") END_IF 

{ ===DATA FILE FOR TITLEBLOCK FIELD COORDINATES=== } 
LET TBcords {MDXDIR+ ' / data /TBcords 1 ) 

(===GET THE BORDER SUBPART_ID AND NAME=== } 
LET endSubPartList "false" 
OPEN_INFILE 9 borderPartNos 
READ_FILE 9 myLine 

WHILE ( (myLineO 1 END-OF-FILE ' ) AND (endSubPartList <>" true" ) ) 
LET space (POS myLine ' ' ) 
LET mylD (SUBSTR myLine 1 (space -1)) 
LET myName (SUBSTR myLine (space +1) 80) 

{===FOUND BORDER BEING WORKED ON=== } 
IF (mmd="ON") DISPLAY ("myName: " + myName+ " Border_ID: "+ Border_ID) END_IF 
IF (myName = Border__ID) 
READ_FILE 9 myLine 

WHILE ((myLine <> 1 END-OF-FILE 1 ) AND (endSubPartList <>"true")) 
LET firstChar (SUBSTR myLine 1 1) 
LET space (POS myLine 1 1 ) 
LET mylD (SUBSTR myLine 1 (space -1) ) 
LET myName (SUBSTR myLine (space +1) 80) 
IF (firstChar 

LET test (SUBSTR myName 1 6) 
IF ((SUBSTR myName 16)= 1 TITLE_ f ) 
EDIT_PART my ID 
INQ_ENV 7 

LET TBLL ( INQ 101) 
LET TBUR (INQ 102) 

OPEN__INFILE 6 TBcords 

READ_FILE 6 cordLine 

WHILE (cordLine <> 1 END-OF-FILE 1 ) 

LET myspace (POS cordLine 1 ' ) 

LET mycomma (POS cordLine f , f ) 

LET mydistance (mycomma - (myspace+1)) 

LET cordX (SUBSTR cordLine (myspace +1) mydistance) 
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LET cordY (SUBSTR cordLine (mycomma +1) 80) 
LET fieldLL (PNT_XY (VAL cordX) (VAL cordY) ) 

READ_FILE 6 cordLine 

LET myspace (POS cordLine 1 1 ) 

LET mycomma { POS cordLine 1 ,') 

LET mydistance (mycomma - (myspace+1)) 

LET cordX (SUBSTR cordLine (myspace +1) mydistance) 

LET cordY (SUBSTR cordLine (mycomma +1) 80) 

LET fieldUR (PNT_XY (VAL cordX) (VAL cordY)) 

LET mydistance (myspace - 1) 

LET fieldName (SUBSTR cordLine 1 mydistance) 

LET mylnfoText (STR mysheetnum + "_mkm"+f ieldName ) 

LET newFieldLL (fieldLL + TBLL) 

LET newFieldUR (fieldUR + TBLL) 
INQ_ENV 8 

LET info_count (INQ 3) 

TEX T_AD JUST 1 
TEXT_SIZE 3.2 
CURRENT_FONT ' hp_i 309 8_v ' 

CATCH NO_VIEWPORT__RANGE 0 

TRAP_ERROR {needed for if there is no text within the box} 
ADD__ELEM_INFO mylnfotext SELECT SUBTREE TEXTS newFieldLL 
newFieldUR CONFIRM END 
INQ_ENV 8 

LET new_inf o_count (INQ 3) 
IF (new_info_count = info_count) 
{no text element was there} 

{place a text element with "XXX" value and tag} 

IF (fieldName = 'Title') 
TEXT_SIZE 5 

CURRENT_FONT 1 hp_block__v f 

TEXT »XXXX ? (newFieldLL + ( PNT_XY 5 17.5)) END 
ADD_ELEM_INFO mylnfotext SELECT SUBTREE TEXTS newFieldLL 
newFieldUR CONFIRM END 

ELSE_IF (fieldName = 1 Dwg_Number 1 ) 
TEXT_SIZE 5 

CURRENT_FONT 1 hp_block_v ? 

TEXT 'XXXX' (newFieldLL + (PNT_XY 5 3)) END 
ADD_ELEM_INFO mylnfotext SELECT SUBTREE TEXTS newFieldLL 
newFieldUR CONFIRM END 
ELSE 

TEXT 'XXXX' (newFieldLL + ( PNT_XY 5 4.5)) END 
ADD_ELEM_INFO mylnfotext SELECT SUBTREE TEXTS newFieldLL 
newFieldUR CONFIRM END 
END_IF 
ELSE 

{text elment was there and got tagged} 
END_IF 

IF (mmd="ON") POINT newFieldLL POINT newFieldUR END__IF 
READ_FILE 6 cordLine 
ENDJflHILE 
CLOSE_FILE 6 
END_IF 
ELSE 

LET endSubPartList "true" 
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END_IF 

READ_FILE 9 myLine 
END_WHILE 
END_IF 

READ_FILE 9 myLine 
END_WHILE 
CLOSE_FILE 9 

END DEFINE 
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DEFINE tag 

PARAMETER InfoText 
PARAMETER LL 
PARAMETER UR 
PARAMETER midpoint 

LOCAL mylnfoText 
LOCAL myLL 
LOCAL myUR 
LOCAL mymidpoint 
LOCAL myfound 
LOCAL mytext 
LOCAL matLoc 

LET mylnfoText InfoText 
LET myLL LL 
LET myUR UR 

LET mymidpoint midpoint 

CATCH NO_VIEWPORT_RANGE 1 
WINDOW myLL myUR 

LET myfound 0 

REPEAT {start at midpoint and go up to top of box} 

TRAP_ERROR 

GATHER mymidpoint 

INQ_ELEM mymidpoint 

LET~mytext ( INQ 902) 
IF (mmd="ON") DISPLAY ("text inquired is: "+ mytext) END_IF 

IF (mytext <> 1 END-OF-LIST 1 ) 
IF (mmd="ON") DISPLAY (mytext+" does not equal END-OF-LIST") END_IF 
LET myfound 1 

END_IF 

{ PICK_VP_PNT 1 mymidpoint } 
{ POINT mymidpoint } 
END 

LET myHmidpoint mymidpoint 

REPEAT {start at midpoint and go left to left edge of box} 

TRAP_ERROR 

GATHER myHmidpoint 

INQ_ELEM myHmidpoint 

LET mytext (INQ 902) 
IF (mmd="ON") DISPLAY ("text inquired is: "+ mytext) END_IF 

IF (mytext <> 1 END-OF-LIST 1 ) 
IF (mmd="ON") DISPLAY <mytext+" does not equal END-OF-LIST") END_IF 
LET myfound 1 

END_IF 

{ PICK_VP_PNT 1 myHmidpoint } 

{ POINT myHmidpoint } 

END 

LET myHmidpoint (myHmidpoint + (PNT_XY -1 0)) 
UNTIL ( ( (X_OF myHmidpoint) <= ( (X_OF LL) +1)) OR (myfound = 1)) 
IF (mmd="ON") DISPLAY ("myfound is "+ STR myfound) END_IF 

LET myHmidpoint mymidpoint 

REPEAT {start at midpoint and go right to right edge of box} 
TRAP_ERROR 
GATHER myHmidpoint 
INQ_ELEM myHmidpoint 
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LET mytext (INQ 902) 
IF (mmd="ON") DISPLAY ("text inquired is: "+ mytext) END_IF 

IF (mytext <> 1 END-OF-LIST 1 ) 
IF (mmd="ON") DISPLAY (mytext+" does not equal END-OF-LIST" ) END_IF 
LET myfound 1 

END_IF 

{ PICK_VP_PNT 1 myHmidpoint } 

{ POINT myHmidpoint } 

END 

LET myHmidpoint (myHmidpoint + (PNT_XY 10)) 
UNTIL ((<X_OF myHmidpoint) >= ( (X_OF UR) -1)) OR (myfound = 1)) 
IF (mmd="ON") DISPLAY ("myfound is "+ STR myfound) END_IF 

LET mymidpoint (mymidpoint + ( PNT_XY 0 1)) 

UNTIL ( ( (Y_OF mymidpoint) >= ( (Y_OF UR) -1)) OR (myfound - 1)) 
IF (mmd="ON") 

DISPLAY ("myfound is "+ STR myfound) 

DISPLAY (STR myfound+" found: "+mytext) 
END_IF 

LET delim (POS mylnfoText '_ f ) 

LET mystring (SUBSTR mylnfoText delim (delim +50)) 
TEXT_ADJUST 5 
TEXT_RATIO . 9 END 

LET matLoc 0 

IF (myfound = 0) 

LET matLoc (POS mystring 'Matl') 
LET matltem (POS mystring 'Qty 1 ) 
LET matQty (POS mystring 'Item') 
IF (mystring = "_mkmEr") 
TEXT_AD JUST 5 
TEXT_SIZE 2.3 

LET midpoint (midpoint + (PNT_XY 0 .5)) 

TEXT 1 X ? midpoint END 
ELSE_IF (mystring = "_mkmRev") 

TEXT_AD JUST 5 

TEXT 'XXX' midpoint END 
ELSE_IF (mystring = "_mkm3dRev") 

TEXT_ADJUST 5 

TEXT 'XXX' midpoint END 
ELSE_IF (mystring = n _mkmDwgNumberU" ) 

TEXT_AD JUST 5 

LET midpoint (midpoint + (PNT_XY 31 .3)) 
TEXT 'XXXX' midpoint END 
ELSE_IF (mystring = "_mkmApprovedBy" ) 
TEXT_AD JUST 1 
LET midy (Y_OF midpoint) 

LET mypoint (PNT_XY ( (X_OF myLL) +2.5) (midy +.7)) 
TEXT 'XXXX' mypoint END 
ELSE_IF (mystring = "_mkmApprovedDate" ) 
TEXT_ADJUST 1 
LET midy (Y_OF midpoint) 

LET mypoint (PNT_XY ( (X_OF myLL) +2.5) (midy +.7)) 
TEXT 'XXXX 1 mypoint END 
ELSE_IF (mystring = "_mkmSheetQty" ) 
TEXT_ADJUST 5 

LET midpoint (midpoint + (PNT_XY 0 .5)) 
TEXT 1 XXXX 1 midpoint END 
ELSE_IF (mystring = "_mkmRevDesc" ) 
TEXT_ADJUST 1 
LET midy (Y_OF midpoint) 
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LET mypoint (PNT_XY ( (X_OF myLL)+3.5) midy) 
LET midpoint (mypoint + (PNT_XY 0 -1)) 
TEXT 'XXXX' midpoint END 
ELSE_IF (mystring = M _mkmDwgNumberL" ) 
TEXT_ADJUST 1 
TEXT_SIZE 5 

CURRENT__FONT ' hp_block_v 1 
LET midy (Y_OF midpoint) 

LET mypoint (PNT_XY ( (X_OF myLL)+2.5) (midy -2)) 
TEXT f XXXX f mypoint END 
CURRENT_FONT 1 hp_i 3 0 9 8_v 1 
TEXT_SIZE 3.2 

ELSE_IF (mystring = M _mkmFileRevisedBy" ) 
TEXT_ADJUST 1 
LET midy (Y_OF midpoint) 

LET mypoint (PNT_XY ( (X_OF myLL) +3 . 5 ) midy) 
LET midpoint (mypoint + (PNT_XY 0-1)) 

TEXT 1 1 midpoint END 

ELSE_IF (mystring = w _mkmFileRevisedByDate" ) 
TEXT_ADJUST 1 
LET midy (Y_OF midpoint) 

LET mypoint (PNT_XY ( (XJDF myLL) +3.5) midy) 
LET midpoint (mypoint + (PNT_XY 0 -1)) 
TEXT ' / / * midpoint END 

ELSE_IF (mystring = "_mkmTitle") 
TEXT_AD JUST 1 
TEXT_SIZE 5 

CURRENT_FONT 1 hp_block_v ■ 
LET midy (Y_OF midpoint) 

LET mypoint (PNT_XY ( (X_OF myLL)+2.5) midy) 
TEXT 'XXXX 1 mypoint END 

LET midpoint (mypoint + (PNT_XY 0 5)) 
TEXT 'XXXX' midpoint END 
LET midpoint (mypoint + ( PNT_XY 2-8)) 
TEXT f XXXX» midpoint END 

CURRENT_FONT 1 hp_i3 0 9 8_v 1 
TEXT__SIZE 3.2 

ELSE_IF (mystring = f, _mkmTitlel " ) 
TEXT_ADJUST 1 
TEXT_SIZE 5 

CURRENT_FONT 1 hp_block_v f 
LET midy (Y_OF midpoint) 

LET mypoint ( PNT_XY ( (X_OF myLL) +2 . 5 ) midy) 
TEXT ? XXXX f mypoint END 
CURRENT_FONT 1 hp_i 3 0 9 8_v 1 
TEXT_SIZE 3.2 
ELSE_IF (mystring = "_mkmTitle2 " ) 
TEXT_AD JUST 1 
TEXT_SIZE 5 

CURRENT_FONT 1 hp_block_v 1 
LET midy (Y_OF midpoint) 

LET mypoint (PNT_XY ( (X_OF myLL) +2. 5) midy) 
TEXT 'XXXX 1 mypoint END 
CURRENT__FONT 1 hp_i3098_v 1 
TEXT_SIZE 3.2 
ELSE_IF (mystring = "_mkmTitle3" ) 
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TEXT_ADJUST 1 
TEXT_SIZE 5 

CURRENT_FONT 1 hp_block_v ' 
LET midy (Y_OF midpoint) 

LET mypoint (PNT_XY ( (X_OF myLL) +2.5) midy) 
TEXT 'XXXX* mypoint END 
CURRENT_FONT 1 hp_i3098_v 1 
TEXT_SIZE 3.2 

} 

ELSE_IF (matLoc <> 0) 
IF (mmd="ON") DISPLAY ( "myf ound is 0 displaying material block row field info 
+ STR mystring) END_IF 

ELSE_IF (matltem <> 0) 
IF (mmd= ,, ON") DISPLAY ( "myf ound is 0 displaying material block row field info 
+ STR mystring) END_IF 

ELSE_IF (matQty <> 0) . 
IF {mmd="ON") DISPLAY ( "myf ound is 0 displaying material block row field info 
+ STR mystring) END_JEF 

ELSE 

TEXT_ADJUST 1 

LET midy (Y_OF midpoint) 

LET mypoint (PNT_XY ( (XJDF myLL)+2.5) midy) 
TEXT 'XXXX 1 mypoint END 

{ 

TEXT 'XXXX' (midpoint + (PNT_XY -3 0)) END 

TEXT 'XXXX' {midpoint + (PNT_XY { (X_OF myLL) + 2 . 5 ) 4.5)) END 

} 

END_IF 
ELSE 



IF {(mystring - "_mkmTitle") AND (mylnfoText <> " l_mkmTitle" ) ) 
LET xl (X_OF myLL) 
LET yl (Y_OF myLL) 
LET x2 (X_OF myUR) 
LET y2 (Y_OF myUR) 

LET delpointl ( (PNT_XY xl y2 ) + (PNT_XY 2 -2)) 
LET delpoint2 ({PNT_XY x2 yl) + (PNT_XY -2 2)) 
DELETE delpointl delpoint2 
POINT delpointl 
POINT delpoint2 
TEXT_SIZE 5 

CURRENT_FONT 1 hp_block_v 1 
TEXT 1 XXXX 1 midpoint END 
CURRENT_FONT 1 hp_i3098_v 1 
TEXT_SIZE 3.2 
END_IF 

} 

END_IF 

TEXT_ADJUST 1 

{adjust tagging box for text slightly outside box} 
LET myLL (myLL -1.5,0) 
LET myUR (myUR 1.5,0) 

CATCH NO_VIEWPORT_RANGE 0 
TRAP_ERROR 
IF (pnts="0N") 
POINT myLL 
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POINT myUR 
END_IF 

ADD_ELEM_INFO mylnfoText SELECT TEXTS myLL myUR CONFIRM 
END 

{ 

LET mytrap ERR0R_STR 
POINT myLL 
POINT myUR 
END 

} 
{ 

LINE RECTANGLE myLL myUR 
END 

POINT myLL 
POINT myUR 
END 



END DEFINE 



200309767 - Appendix A 44 

© Copyright 2003 Hewlett-Packard Development Company, LP. 



DEFINE tagblanks , , 

{open the cords file and loop through the cords tagging them with mkmBlank} 
{this code is not used and was planned to be used for tagging text that needed 

to be blanked. } 
OPEN_INFILE 5 cords 
READ_FILE 5 cordsLine 
WHILE (cordsLine <> 1 END-OF-FILE 1 ) 

LET delim (POS cordsLine 1 1 ) 

LET llx (SUBSTR cordsLine 1 (delim -1)) 

LET lly (SUBSTR cordsLine (delim +1) 500) 

LET blankLL (PNT_XY VAL llx VAL lly) 



READ_FILE 5 cordsLine 

LET delim (POS cordsLine 1 ' ) 

LET urx (SUBSTR cordsLine 1 (delim -1) ) 

LET ury (SUBSTR cordsLine (delim +1) 500) 

LET blankUR (PNT_XY VAL urx VAL ury) 

LET mid_X ( ( (X_OF blankLL) + (X_OF blankUR) ) / 2) 

LET mid_Y ( ( (Y_OF blankLL) + (Y_OF blankUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

{LET InfoText (STR mysheetnum + "_mkmBlank" ) } 

LET InfoText "mkmBlank" 

tag InfoText blankLL blankUR midpoint 

READ_FILE 5 cordsLine 
END_WHILE 
CLOSE_FILE 5 
END DEFINE 
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DEFINE tagNotes 

PARAMETER InfoText 
PARAMETER startpoint 

LOCAL mylnfoText 
LOCAL mystartpoint 

LET mylnfoText InfoText 
LET mystartpoint startpoint 

REPEAT 

CATCH NO_VIEWPORT_RANGE 0 

WINDOW mystartpoint (mystartpoint + (PNT_XY 2 2)) 
TRAP_ERROR 

GATHER mystartpoint 

IF (mmd="ON") DISPLAY ( "add_elem_inf o at: " + STR mystartpoint) END_IF 
CATCH NO_VIEWPORT_RANGE 1 
TRAP_ERROR 

ADD_ELEM_INFO mylnfoText TEXTS mystartpoint 

{ 

PICK_VP_PNT 1 mystartpoint 

} 

END 

{ POINT mystartpoint } 

LET mystartpoint (mystartpoint + (PNT_XY 0 10)) 
UNTIL ( (Y_OF mystartpoint) >= ( (Y_OF UR) -40)) 



END DEFINE 
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DEFINE tagrb 
{ 

LOCAL XI 
LOCAL X2 
LOCAL X3 
LOCAL X4 
LOCAL X5 
LOCAL Yl 
LOCAL Y2 
LOCAL line 
LOCAL count 

LET count 1 

OPEN__INFILE 8 f| /usr/bin/cat ' +xys) 
READ_FILE 8 line 
WHILE (line <> * END-OF-FILE f ) 
LET delim (POS cordsLine 1 ; f ) 

LET ('X'+STR count) {SUBSTR line 3 (delim -1)) 
READ_FILE 8 line 
LET count (count+1) 

IF (mmd="ON") DISPLAY ( ? X'+STR count) END_IF 
END__WHILE 
} 

IF (bd_size = 'E» ) 

LET startpoint (LL + <PNT_XY 27 20)) 

LET InfoText (STR mysheetnum + '^mkmNotes " ) 

tagNotes InfoText startpoint 

IF (olev <> ' END-OF-FILE 1 ) 

LET erLL ((PNT_XY 720.2155 800.096) + LL) 

LET erUR ( ( PNT_XY 724.126 805.655) + LL) 
ELSE 

LET erLL ( ( PNT_XY 809.7 75391530304 8 00.08 9934335277) + LL) 
LET erUR ((PNT_XY 813.8 9284 0087085 805.643702156051) + LL) 
END_IF 

LET mid_X ( ( (X_OF erLL) + (X_OF erUR) ) / 2) 
LET mid_Y (((Y_OF erLL) + (Y_OF erUR) ) / 2) 
LET midpoint <PNT_XY mid_X mid_Y) 
LET InfoText (STR mysheetnum + "_mkmEr") 
tag InfoText erLL erUR midpoint 

IF (olev <> ' END-OF-FILE 1 ) 

LET uDwgNumLL ( (PNT_XY 804.0355 805.655) + LL) 

LET uDwgNumUR ((PNT_XY 1069 812.8) + LL) 
ELSE 

LET uDwgNumLL ( ( PNT_XY 8 93.55 9074336012 805.713674 657 0 66) 4- LL) 
LET uDwgNumUR { (PNT_XY 1070.06415603055 812.845193109371) + LL) 
END_IF 

LET mid_X ( ( (X_OF uDwgNumLL) + (X_OF uDwgNumUR) ) / 2) 
LET mid_Y ( ( (Y_OF uDwgNumLL) + (Y_0F uDwgNumUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmDwgNumberU" ) 
tag InfoText uDwgNumLL uDwgNumUR midpoint 

IF (olev <> 1 END-OF-FILE 1 ) 

LET revLL ((PNT_XY 804.035550318 081 792.099081901064) + LL) 
LET revUR ((PNT_XY 816.08 4 688 922433 800.0 99081901064) + LL) 

ELSE 
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LET revLL ( ( PNT_XY 893.559074336012 792.044930956816) + LL) 
LET revUR ( (PNT_XY 903.66205881011 800.166938083051) + LL) 
END_IF 

LET mid_X ( ( (X_OF revLL) + (X_OF revUR) ) / 2) 
LET mid_Y ( < (Y__OF revLL) + (Y_OF revUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 
LET InfoText (STR mysheetnum + "_mkmRev") 
tag InfoText revLL revUR midpoint 

IF (olev <> 1 END-OF-FILE 1 ) 

LET rev3LL ( (PNT_XY 816.084688922433 792.099081901064) + LL) 
LET rev3UR ( (PNT_XY 82 8.084 68 8 922433 800.099081901064) + LL) 

ELSE 

LET rev3LL { (PNT_XY 903.66205881011 7 92.243028 691602) + LL) 
LET rev3UR ( (PNT_XY 915.74602063207 800.166938083051) + LL) 
END_IF 

LET mid_X ( { (X_OF rev3LL) + (X_OF rev3UR) ) / 2) 
LET mid_Y { ( (Y_OF rev3LL) + (Y__OF rev3UR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 
LET InfoText (STR mysheetnum + "_mkm3dRev" ) 
tag InfoText rev3LL rev3UR midpoint 

IF (olev <> 1 END-OF-FILE 1 ) 

LET revDescLL ( (PNT_XY 828.084 68 8922433 7 92.099081901064) + LL) 
LET revDescUR ( <PNT_XY 97 6.922 949619003 800.099081901064) + LL) 

ELSE 

LET revDescLL ( (PNT_XY 915.74 602063207 792.243028691602) + LL) 
LET revDescUR ( (PNT_XY 1008.65385824681 8 00.166938083051) + LL) 
END_IF 

LET mid_X ( ( (XJDF revDescLL) + (X_OF revDescUR)) / 2) 

LET mid_Y ( ( (Y_OF revDescLL) + (Y_OF revDescUR)) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRevDesc" ) 

tag InfoText revDescLL revDescUR midpoint 

IF (olev <> 'END-OF-FILE' ) 

LET approvedLL ( ( PNT_XY 976.922949619003 7 92.099081901064) + LL) 
LET approvedUR ( ( PNT_XY 1033.7872 800.099081901064) + LL) 

ELSE 

LET approvedLL ( ( PNT_XY 1008.65385824 681 7 92.24302 8691602) + LL) 
LET approvedUR ( ( PNT_XY 104 6.4 9052559099 800.166938083051) + LL) 
END_IF 

LET mid_X ( ( (X_OF approvedLL) + (X_OF approvedUR)) / 2) 
{ LET mid_Y ( { (Y_OF approvedLL) + (Y_OF approvedUR)) / 2) } 
LET mid_Y ( (Y_0F approvedLL) + 2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmApprovedBy" ) 
tag InfoText approvedLL approvedUR midpoint 

IF (olev <> 1 END-OF-FILE 1 ) 

LET apprDateLL ( (PNT_XY 1033.7872 7 92.099081901064) + LL) 
LET apprDateUR ( ( PNT_XY 1072 800.099081901064) + LL) 

ELSE 

LET apprDateLL ((PNT_XY 104 6.4 9052559099 7 92.2 43028 691602) + LL) 
LET apprDateUR ( ( PNT_XY 1072.04513337 841 800.166938083051) + LL) 
END_IF 

LET mid_X ( ( (X_OF apprDateLL) + (X_OF apprDateUR)) / 2) 
{ LET mid_Y ( ( (Y_OF apprDateLL) + (Y_OF apprDateUR)) / 2) } 
LET mid_Y ( (Y_OF apprDateLL) +2)) 
LET midpoint (PNT_XY mid_X mid__Y) 

LET InfoText (STR mysheetnum + "__mkmApprovedDate" ) 
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tag InfoText apprDateLL apprDateUR midpoint 
=„========================================} 



{ ====================================== 

ELSE_IF (bd_size = ' D 1 ) 

LET startpoint (LL + (PNT_XY 27 20)) 

LET InfoText (STR mysheetnum + "_mkmNotes" ) 

tagNotes InfoText startpoint 

LET erLL ((PNT_XY 558.59661738 88 63 508.696355783413) + LL) 

LET erUR ( (PNT_XY 562.51509217 6419 514.24 4 638 668447) + LL) 

LET mid_X ( ( <X_OF erLL) + (X_OF erUR) ) / 2) 

LET mid_Y ( ( (Y_OF erLL) + <Y__OF erUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmEr") 

tag InfoText erLL erUR midpoint midpoint 

LET uDwgNumLL ( ( PNT_XY 642.47455154077 514.347444137033) + LL) 
LET uDwgNumUR ( (PNT_XY 818.769117433562 521.327432605639) + LL) 
LET mid_X ( ( (X_OF uDwgNumLL) + (X_OF uDwgNumUR) ) / 2) 
LET mid_Y ( ( (Y__0F uDwgNumLL) + (Y_OF uDwgNumUR) ) / 2) 
LET midpoint <PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + M _mkmDwgNumberU" ) 
tag InfoText uDwgNumLL uDwgNumUR midpoint 

LET revLL ((PNT_XY 642.47455154 077 500.786323683742) + LL) 

LET revUR { (PNT_XY 652.4 4596363877 9 508.564 025120188) + LL) 

LET mid_X ( ( (X_OF revLL) + (X_OF revUR) ) / 2) 

LET mid_Y { ( (Y_OF revLL) + (Y_OF revUR) ) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRev" ) 

tag InfoText revLL revUR midpoint 

LET rev3LL ( (PNT_XY 652.44596363877 9 500.78 63236837 42) + LL) 

LET rev3UR ( (PNT_XY 664.41165815638 9 508.763453362149) + LL) 

LET mid_X ( ( (X_OF rev3LL) + <X_0F rev3UR) ) / 2) 

LET mid_Y ( ( (Y_OF rev3LL) + (Y_OF rev3UR) ) / 2) 

LET midpoint (PNT_XY mid__X mid_Y) 

LET InfoText (STR mysheetnum + "_mkm3dRev") 

tag InfoText rev3LL rev3UR midpoint 

LET revDescLL ( (PNT_XY 664.411658156389 500.78 6323683742) + LL) 

LET revDescUR { (PNT_XY 757.34 5218 90982 9 508.763453362149) + LL) 

LET mid_X ( ( (X_OF revDescLL) + (X_OF revDescUR) ) / 2) 

LET mid_Y ( ( (Y_OF revDescLL) + (Y_OF revDescUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + n _mkmRevDesc" ) 

tag InfoText revDescLL revDescUR midpoint 

LET approvedLL ( (PNT_XY 757.345218 90982 9 500.786323683742) + LL) 
LET approvedUR ((PNT_XY 795.2365848822 61 508.7 634533 6214 9) + LL) 
LET mid_X ( ( (X_OF approvedLL) + (X_OF approvedUR)) / 2) 
{ LET mid_Y ( ( (Y_OF approvedLL) + (Y_OF approvedUR)) / 2) } 
LET mid_Y ( (Y_OF approvedLL) + 2)) 
LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "__mkmApprovedBy" ) 
tag InfoText approvedLL approvedUR midpoint 

LET apprDateLL ((PNT_XY 7 95.2365848822 61 500.78 63236837 42) + LL) 
LET apprDateUR ( (PNT_XY 820.7 63399853163 508.7 6345336214 9) + LL) 
LET mid_X ( ( (X_OF apprDateLL) + (X__OF apprDateUR)) / 2) 
{ LET mid_Y ( ( (Y_OF apprDateLL) + (Y_OF apprDateUR)) / 2) } 
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LET mid_Y ( (Y_OF apprDateLL) + 2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmApprovedDate" ) 
tag InfoText apprDateLL apprDateUR midpoint 



\ • 

ELSE_IF (bd_size = 'C') 

LET startpoint (LL + (PNT_XY 27 20)) 

LET InfoText (STR mysheetnum + M _mkmNotes") 

tagNotes InfoText startpoint 

LET erLL ( (PNT_XY 261.786213041646 377.03127 6336119) + LL) 

LET erUR ( (PNT__XY 2 65.657148500597 382.547359365124) + LL) 

LET mid_X ( ( {X_0F erLL) + (X_OF erUR) ) / 2) 

LET mid_Y {((YJDF erLL) + (YJDF erUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmEr") 

tag InfoText erLL erUR midpoint 

LET uDwgNumLL < (PNT_XY 345.6180594 9037 9 382.548616647517) + LL) 
LET uDwgNumUR ( (PNT_XY 522.155965837208 38 9.64 9582712 8 64) + LL) 
LET mid_X ( ( (X_OF uDwgNumLL) + (XJDF uDwgNumUR) ) / 2) 
LET mid_Y ( ( (YJDF uDwgNumLL) + (Y_OF uDwgNumUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + ' JmkmDwgNumberU" ) 
tag InfoText uDwgNumLL uDwgNumUR midpoint 

LET revLL ((PNT_XY 345.61805949037 9 369.1356807 4 6305) + LL) 

LET revUR ( <PNT_XY 355.677761416288 377.025643041135) + LL) 

LET mid_X ( ( (X_OF revLL) + (X_OF revUR) ) / 2) 

LET mid_Y (((YJDF revLL) + (YJDF revUR) ) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRev") 

tag InfoText revLL revUR midpoint 

LET rev3LL ( ( PNT_XY 355.6777 61416288 369.13568074 6305) + LL) 

LET rev3UR ( (PNT_XY 367.7 09953915904 377.025643041135) + LL) 

LET mid_X ( ( (X_OF rev3LL) + (X_OF rev3UR) ) / 2) 

LET mid_Y ( ( (Y_OF rev3LL) + (Y_0F rev3UR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkm3dRev") 

tag InfoText rev3LL rev3UR midpoint 

LET revDescLL ( ( PNT_XY 367.709953915904 369.1356807 4 6305) + LL) 

LET revDescUR { (PNT_XY 4 60.614259937531 377.025643041135) + LL) 

LET mid_X ( ( (X_OF revDescLL) + (X_OF revDescUR) ) / 2) 

LET mid_Y ( ( (YJDF revDescLL) + (Y_OF revDescUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "__mkmRevDesc" ) 

tag InfoText revDescLL revDescUR midpoint 

LET approvedLL ( (PNT_XY 4 60.614259937531 369.1356807 4 6305) + LL) 
LET approvedUR ((PNT_XY 4 98.48 607 8 952717 377.025643041135) + LL) 
LET mid_X ( ( (X_OF approvedLL) + (X_OF approvedUR)) / 2) 
{ LET mid_Y ( ( (Y_OF approvedLL) + (YJDF approvedUR)) / 2) } 
LET mid_Y ( (Y_OF approvedLL) +2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "jnkmApprovedBy" ) 
tag InfoText approvedLL approvedUR midpoint 

LET apprDateLL ( ( PNT_XY 498.486078952717 369.1356807 4 6305) + LL) 
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LET apprDateUR ( (PNT_XY 523.931207353545 377.025643041135) + LL) 
LET mid_X ( ( (X_OF apprDateLL) + <X_OF apprDateUR)) / 2) 
{ LET mid_Y ( { (Y_OF apprDateLL) + (Y_OF apprDateUR)) / 2) } 
LET mid_Y ( (YJ3F apprDateLL) +2)} 
LET midpoint <PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmApprovedDate" ) 
tag InfoText apprDateLL apprDateUR midpoint 

{ ========== , == _== = ======^==™======== } 

ELSE__IF (bd_size = ? B') 

LET startpoint (LL + (PNT_XY 27 20)) 

LET InfoText (STR mysheetnum + "_mkmNotes" ) 

tagNotes InfoText startpoint 

LET erLL ((PNT_XY 127.7968 62880111 232.288 8 8008594 6) + LL) 

LET erUR ( (PNT_XY 131.685037394 071 237.855108863826) + LL) 

LET mid_X ( ( (X_0F erLL) + (X_OF erUR) ) / 2) 

LET mid_Y ( ( (Y_OF erLL) + (Y_OF erUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmEr" ) 

tag InfoText erLL erUR midpoint 

LET uDwgNumLL { { PNT_XY 211.588803140853 237.7 9816534 6916) + LL) 
LET uDwgNumUR ( (PNT_XY 387.413923121275 245.084266283946) + LL) 
LET mid_X ( ( (X_OF uDwgNumLL) + (X_OF uDwgNumUR) ) / 2) 
LET mid_Y ( ( (Y_OF uDwgNumLL) + (Y_OF uDwgNumUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + n _mkmDwgNumberU" ) 
tag InfoText uDwgNumLL uDwgNumUR midpoint 

LET revLL ( (PNT_XY 211.7 80542 639196 224.37 64004 62 915) + LL) 

LET revUR ( (PNT_XY 221.750996553026 232.237719894973) + LL) 

LET mid_X ( ( (X_OF revLL) + (X_OF revUR) ) / 2) 

LET mid_Y ( ( (Y_OF revLL) + (Y_OF revUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "__mkmRev M ) 

tag InfoText revLL revUR midpoint 

LET rev3LL ( (PNT_XY 221.75099655302 6 224.37 64 004 62915) + LL) 

LET rev3UR ( ( PNT_XY 233.638 845450284 232.237719894973) + LL) 

LET mid_X ( ( (X_OF rev3LL) + (X_OF rev3UR) ) / 2) 

LET mid_Y ( ( (Y_OF rev3LL) + (Y_OF rev3UR) ) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkm3dRev") 

tag InfoText rev3LL rev3UR midpoint 

LET revDescLL ( (PNT_XY 233.830584948627 22 4.37 64004 62 915) + LL) 

LET revDescUR ( (PNT_XY 326.824241644924 232.237719894 973) + LL) 

LET mid_X ( { (X_OF revDescLL) + (X_OF revDescUR) ) / 2) 

LET mid_Y { ( (Y_OF revDescLL) + <Y_OF revDescUR)) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRevDesc" ) 

tag InfoText revDescLL revDescUR midpoint 

LET approvedLL ((PNT_XY 326.632502146582 22 4.37 64 004 62 915) + LL) 
LET approvedUR ( (PNT_XY 364.596922818472 232.2377198 94 973) + LL) 
LET mid_X ( ( (X_OF approvedLL) + (X_OF approvedUR)) / 2) 
{ LET mid_Y ( ( (Y_OF approvedLL) + (Y_OF approvedUR)) / 2) } 
LET mid_Y ( (Y_0F approvedLL) +2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmApprovedBy" ) 
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tag InfoText approvedLL approvedUR midpoint 

LET apprDateLL ( (PNT_XY 364.596922818472 224.37 64004 62 915) + LL) 
LET apprDateUR { (PNT_XY 389.906536599732 232.237719894 973) + LL) 
LET mid__X ( ( (X_OF apprDateLL) + (X_OF apprDateUR)) / 2) 
{ LET mid_Y ( ( (Y__OF apprDateLL) + (Y_OF apprDateUR)) / 2) } 
LET mid_Y ( (Y_OF apprDateLL) + 2)) 
LET midpoint (PNT__XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmApprovedDate" ) 
tag InfoText apprDateLL apprDateUR midpoint 

{ _ === _==_==™==== = =====™=======^== } 

ELSE_IF (bd_size = ? A') 

LET startpoint (LL + (PNT_XY 27 20)) 

LET InfoText (STR mysheetnum + "_mkmNotes") 

tagNotes InfoText startpoint 

LET erLL { (PNT_XY 16.4824425653135 190.796056912354) + LL) 

LET erUR ( ( PNT_XY 20.4485725603974 196.355721280462) + LL) 

LET mid_X ( { (X_OF erLL) + (X_OF erUR) ) / 2) 

LET mid_Y ( ( (Y_OF erLL) + (Y_OF erUR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmEr") 

tag InfoText erLL erUR midpoint 

LET uDwgNumLL ( (PNT_XY 100.366699096984 196.2 93225648227) + LL) 
LET uDwgNumUR ( (PNT_XY 2 64.853640062883 203.552606250597) + LL) 
LET mid_X ( ( (X_OF uDwgNumLL) + (X_OF uDwgNumUR) ) / 2) 
LET mid_Y { ( (Y_OF uDwgNumLL) + (Y_OF uDwgNumUR) ) / 2) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + M _mkmDwgNumberU" ) 
tag InfoText uDwgNumLL uDwgNumUR midpoint 

LET revLL { (PNT_XY 100.366699096984 182.836812824321) + LL) 

LET revUR ( (PNT_XY 110.2 81950651441 190.8 04 42568 0581) + LL) 

LET mid_X ( { (X_OF revLL) + (X_0F revUR) ) / 2) 

LET mid_Y ( ( (Y_OF revLL) + (Y_OF revUR) ) / 2) 

LET midpoint ( PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRev") 

tag InfoText revLL revUR midpoint 

LET rev3LL { (PNT_XY 110.2819506514 41 182.83 6812824321) + LL) 

LET rev3UR ( ( PNT_XY 122.498 957 031039 190.80442568 0581) + LL) 

LET mid_X ( ( (X_OF rev3LL) + (X_OF rev3UR) ) / 2) 

LET mid_Y ( ( (Y_OF rev3LL) + (Y_OF rev3UR) ) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkm3dRev" ) 

tag InfoText rev3LL rev3UR midpoint 

LET revDescLL ( (PNT_XY 122.4 98 957 031039 182.836812824321) + LL) 

LET revDescUR ( (PNT_XY 203.237433974473 190.8 04 42568 0581) + LL) 

LET mid_X ( ( (X_OF revDescLL) + (X_OF revDescUR) ) / 2) 

LET mid_Y ( ( (Y_OF revDescLL) + (Y_OF revDescUR)) / 2) 

LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmRevDesc" ) 

tag InfoText revDescLL revDescUR midpoint 

LET approvedLL ( (PNT_XY 203.414 492037 945 182.836812824321) + LL) 
LET approvedUR ( (PNT_XY 241.304 917 621048 190.804425680581) + LL) 
LET mid_X ( ( (X_OF approvedLL) + (XJDF approvedUR)) / 2) 
{ LET mid_Y { ( (Y_OF approvedLL) + (Y_0F approvedUR)) / 2) } 
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LET mid__Y ( {Y_OF approvedLL) + 2)) 
LET midpoint ( PNT_XY mid__X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmApprovedBy" ) 
tag InfoText approvedLL approvedUR midpoint 

LET apprDateLL ((PNT_XY 241.304 917 621048 182.836812824321) + LL) 
LET apprDateUR { (PNT_XY 2 66.624220697 607 190.804425680581) + LL) 
LET mid_X ( (X_OF apprDateLL) + (X_OF apprDateUR) / 2) 
{ LET mid_Y ( (Y_OF apprDateLL) + (Y_OF apprDateUR) / 2) } 
LET mid_Y ( <Y_OF apprDateLL) + 2)) 
LET midpoint (PNT_XY mid_X mid_Y) 

LET InfoText (STR mysheetnum + "_mkmApprovedDate" ) 
tag InfoText apprDateLL apprDateUR midpoint 

END_IF 
END DEFINE 



